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ABSTRACT 


This  thesis  deals  with  the  features  and  performance  of  a  network  interface 
device  to  interconnect  two  remote  Fiber  Distributed  Data  Interface  (FDDI)  Local 
Area  Networks  (LANs)  through  the  Critical  Data  Link  (CDL)  which  is  a  full-duplex, 
jam-resistant,  point-to-point  microwave  communications  system  for  use  in  imagery 
and  signals  intelligence  collection  systems.  In  particular,  OPNET,  a  commercially 
available  network  engineering  tool  is  used  to  model  a  medium  access  level  remote 
bridge  interface  connecting  two  LANs.  The  effectiveness  of  two  different  load  bal¬ 
ancing  techniques  used  to  distribute  traffic  over  the  multiple  channels  of  the  CDL 
has  been  studied.  Also,  the  effect  of  different  jamming  patterns  on  the  bit  error  rate 
seen  by  the  users  has  been  studied. 
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I.  INTRODUCTION 


A.  PROBLSM  STATEMENT 

TV  Is  thesis  deals  with  data  link  level  interconnection  of  remote  Local  Area  Net¬ 
works  (LANs)  through  Critical  Data  Link  (CDL).  The  Critical  Data  Link  (CDL)  is  a 
full-duplex,  jam-resistant,  point-to-point  microwave  communications  system  for  use 
in  imagery  and  signals  intelligence  collection  systems.  The  CDL  system  is  designed 
to  provide  a  communications  protocol  between  two  or  more  Fiber  Distributed  Data 
Interface  Local  Area  Networks  (FDDI  LAN).  While  the  collection  platform  LAN 
is  in  the  form  of  an  airborne  LAN  that  provides  sensor  information,  the  command 
information  is  provided  by  a  ground-based  LAN. 

This  study  is  concerned  with  the  modeling  of  a  CDL  Network  Interface  (NI) 
using  a  commercially  available  network  simulation  program,  MIL  3  Inc.’s  Optimized 
Network  Engineering  Tool  (OPNET). 

B.  SCOPE 

The  scope  of  this  thesis  is  as  follows: 

•  Model  the  interconnection  of  FDDI  LANs  in  the  unique  environment  of  CDL 
deployment. 

•  Evaluate  the  efficiency  of  the  LAN-CDL  interface. 

•  Establish  the  necessary  basis  for  running  multilink  point-to-point  protocol  in 
CDL  deployment. 


C.  BENEFITS 

This  thesis  continues  the  development  of  CDL  related  simulation/modeling 
programs  started  in  [1].  In  that  study,  the  capabilities  of  OPNET’s  original  FDDI 
LAN  model  were  enhanced  for  the  use  in  CDL  deployment.  We  have  added: 

•  A  model  of  NI  that  performs  load  balancing  over  multiple  links. 

•  A  CDL  model  with  appropriate  jamming  patterns  that  faithfully  represents 

real  conditions. 

Using  these,  we  have  carried  out  several  simulation  experiments  to  determine 
the  impact  of  load  balancing  and  jamming  on  bit  throughput. 

D.  ORGANIZATION 

This  thesis  is  organized  in  five  chapters.  /  :  ‘  *  a  brief  introduction,  the  discus¬ 
sion  of  FDDI  LAN  interconnection  through  CDL  is  provided  in  Chapter  II.  Chapter 
III  presents  the  proposed  NI  model  development  in  OPNET.  The  simulation  results 
are  supplied  in  Chapter  IV.  The  conclusions  and  recommendations  for  future  studies 
are  in  Chapter  V. 
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II.  INTERCONNECTION  OF  FDDI  LOCAL  AREA 
NETWORKS  THROUGH  CDL 


A.  OVERVIEW 

This  chapter  addresses  the  issues  related  to  the  interconnection  of  FDDI  LANs 
through  the  unique  environment  of  the  CDL.  First,  architectural  alternatives  avail¬ 
able  for  implementing  such  a  connectivity  are  discussed.  Then,  existing  bridging 
mechanisms  are  considered  to  determine  the  ideal  candidate  for  a  NI  for  such  de¬ 
ployment.  The  system  specific  features  of  CDL  are  also  stated  briefly  in  order  to 
justify  the  proposed  NI  architecture. 

B.  ISSUES  IN  HIGH  SPEED  LAN  INTERCONNECTION 

1.  Preliminary 

Local  area  networks  are  limited  in  geography,  traffic  handling  capability, 
and  the  number  of  stations.  A  single  LAN  is  not  likely  to  meet  the  needs  of  many  or¬ 
ganizations,  specifically  military  applications  which  require  sophisticated  command, 
control  and  communication  functions. 

This  makes  the  integration  of  any  LAN  topology  with  other  LANs  through 
a  communication  link  necessary.  The  protocols  used  to  achieve  this  integration  can 
be  at  either  the  network  or  data  link  layers  of  ISO’s  Open  Systems  Interconnection 
(OSI)  Model. 

Interconnection  at  the  network  layer  is  achieved  through  routing  devices. 
At  the  data  link  layer  it  is  achieved  using  bridges.  Figure  1  shows  the  layer  hier¬ 
archies.  In  general,  each  layer  of  an  architecture  is  associated  with  an  additional 
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level  of  addressing  regardless  of  the  functions  performed  within  a  layer.  Furthermore, 
functional  distinctions  between  them  are  major  factors  to  determine  the  appropriate 
layer  of  interconnection. 

2.  Bridges  versus  Routers 

Bridges  are  Medium  Access  Control  (MAC)  level  store  and  forward  de¬ 
vices  that  are  independent  of  higher  level  protocols.  They  are  transparent  to  commu¬ 
nicating  end  stations.  This  is  particularly  desirable  in  many  high  speed  applications. 
Bridges  make  simple  forwarding  or  filtering  decisions,  based  on  addressing  accord¬ 
ing  to  the  standardized  spanning  tree  algorithm  [2].  This  algorithm  calls  for  the 
automatic  discovery  of  topology  changes  in  the  whole  network  environment. 

In  a  general  bridge  operation,  frames  are  first  received  and  then  condi¬ 
tionally  passed  to  the  other  LAN  depending  on  a  forwarding  decision.  Effectively, 
frames  are  filtered  through  the  bridge.  Thus,  the  frames  having  destination  and 
source  addresses  in  the  same  LAN  are  not  forwarded.  Although  two  LANs  are  con¬ 
nected  in  the  frame  level,  they  do  not  share  each  other’s  local  traffic,  but  only  the 
cross  traffic.  The  purpose  of  the  bridge  is  to  allow  hosts  attached  to  other  LANs  to 
communicate  as  if  they  were  in  the  same  LAN. 

In  contrast  to  bridges,  routers  are  network  layer  store  and  forward  devices 
that  rely  on  an  entire  higher  level  protocol  suite,  and  they  are  explicitly  addressed  by 
the  communicating  end  stations  [3].  They  are  capable  of  searching  alternate  routes 
having  lower  transmission  delays  and  using  the  best  path  between  two  nodes  in  the 
network.  Since  they  can  tolerate  failures  in  links  and  stations,  routers  are  designed 
to  enhance  availability  through  the  entire  network  with  the  penalty  of  additional 
processing  overheads  introduced  by  the  network  layer.  Therefore,  bridges  become 
more  important  in  a  high  speed  network  environment. 


Recently,  both  technologies  have  begun  to  converge  such  that  simultane¬ 
ous  operation  of  MAC  level  bridging  and  multiple  protocol  routing  services  are  pro¬ 
vided  in  a  simple  device.  These  devices  are  called  as  brouters  [4].  Consequently,  the 
individual  attractive  features  of  both  architectures  are  supported  with  the  brouters. 

In  this  study,  the  NI  developed  for  an  FDDI  LAN  interconnection  is 
intended  to  be  a  generic  model.  Other  high  speed  interface  models  can  be  developed 
either  for  ATM  or  newer  networking  technologies,  as  they  reach  maturity. 

C.  PROPOSED  BRIDGING  METHOD 

1.  Current  Standards 

Throughout  the  networking  evolution,  bridging  standardization  proce¬ 
dures  addressed  the  interconnection  of  separate  LANs  at  geographically  close  points 
of  attachment  with  local  MAC  bridges  [2].  As  LANs  became  more  prevalent  both 
in  commercial  and  military  applications,  the  need  to  interconnect  geographically 
separated  LANs  proved  inevitable. 

An  emerging  IEEE  standard  is  being  developed  to  satisfy  this  funda¬ 
mental  necessity  [5].  This  draft  standard  specifies  how  a  cluster  of  remote  LANs 
can  be  bridged  with  remote  bridges  in  the  MAC  level.  Moreover,  the  proposed  stan¬ 
dard  provides  all  functionalities  of  local  MAC  bridges  to  remote  MAC  bridges  with 
special  additions. 

2.  Remote  Bridging 

Remote  MAC  bridges,  possibly  not  constrained  to  the  same  geographic 
area,  interconnect  locally  situated  LANs  to  the  one  or  more  remote  MAC  bridges 
by  using  a  non-LAN  communication  medium  as  depicted  in  Figure  2.  MAC  service 
support  of  remote  bridges  performs  the  equivalent  communication  functions  of  the 
conventional  local  bridges  across  a  non-LAN  medium.  This  communication  medium, 
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Figure  2:  Remote  MAC  bridge  architecture  [5]. 

which  may  be  any  type  of  point-to-point  link,  is  operated  and  controlled  by  the 
group  communications  entity  within  the  remote  MAC  bridge. 

The  group  communications  entity,  which  is  represented  in  the  virtual 
port  level,  is  an  abstract  communication  functionality  supported  by  protocols  and 
procedures.  As  will  be  stated  in  the  next  section,  a  promising  candidate  protocol 
for  CDL  deployment  is  the  Internet  Standard  Point-to-Point  Protocol  (PPP)  and 
its  imbedding  into  this  entity  is  being  addressed  in  further  studies  [6]. 
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The  spanning  tree  algorithm  and  its  associated  procedures  are  reempha¬ 
sized  in  the  draft  standard  for  remote  MAC  bridges  in  order  to  preserve  the  active 
topology  and  provide  automatic  reconfiguration  in  the  entire  network. 

Remote  bridge  functions  enforced  by  the  spanning  tree  topology  also 
include  forwarding  process  and  learning  process  associated  with  filtering  database 
as  in  the  case  of  local  MAC  bridges.  The  forwarding  process  filters  the  frames 
coming  from  local  LAN  on  the  basis  of  permissible  destination  addresses  contained 
in  the  filtering  database,  while  forwarding  the  frames  coming  from  other  LANs  to 
their  destinations.  The  learning  process  updates  the  filtering  database  by  observing 
the  source  addresses  of  received  frames. 

The  developed  model  that  will  be  discussed  in  the  next  chapter  is  evalu¬ 
ated  in  relation  to  the  proposed  remote  MAC  bridging  functionality.  However,  it  is 
not  intended  to  be  the  implementation  of  a  full-fledged  remote  MAC  bridge.  Since 
topology  is  restricted  to  a  pair  of  FDDI  LANs  and  probable  topology  changes  are 
not  modeled  in  this  generic  implementation,  bridge  functions  are  fitted  into  two  sep¬ 
arate  stations  existing  in  the  interconnected  network  model.  As  a  result,  subsequent 
processes  for  these  functions  are  preferred  to  be  simple  forward  and  filter  decisions 
based  on  a  priori  knowledge  of  the  addressing  database  maintained  in  these  stations. 

D.  UNIQUENESS  OF  THE  CDL  ENVIRONMENT 
1.  Description 

As  noted  before,  CDL  is  a  full-duplex,  jam-resistant,  point-to-point  mi¬ 
crowave  communication  system  that  provides  real-time  connectivity  and  interoper¬ 
ability  between  multiple  collection  platforms  and  surface  terminals.  In  our  study, 
CDL  is  assumed  to  be  a  bundle  of  unidirectional  point-to-point  bit  pipes  associated 
with  certain  data  rates  along  the  communication  medium.  The  bit  pipes  carrying 
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information  from  surface  terminals  to  the  collection  platform  are  grouped  together 
as  the  command  link.  The  link  which  performs  the  same  functionality  in  the  oppo¬ 
site  direction  is  called  the  return  link.  The  return  link  carries  information  such  as 
voice,  platform  status,  and  data  gathered  by  sensors  from  the  collection  platform. 

2.  System  Requirements 

The  first  set  of  requirements  is  simply  related  to  NI  architecture  and  its 
operation.  Our  model  assumes  the  presence  of  FDDI  LANs  on  both  ends  of  the  CDL 
link  itself.  In  this  thesis,  the  NI  functions  required  when  CDL  link  is  established  are 
addressed.  Thus,  the  setup  procedures  such  as  link  establishment  and  authentication 
are  ignored  in  order  to  simplify  the  model  simulation  sequence.  The  second  set  of 
requirements  refers  to  the  typical  CDL  scenarios.  The  NI  implementation  should 
be  generic  so  that  different  scenarios  can  be  supported  with  a  single  type  of  NI. 
Some  of  the  scenarios  may  require  the  LAN  to  be  interconneceted  to  multiple  LANs 
permitting  multicasting  of  collected  data  while  others  may  require  relaying  of  data 
from  one  LAN  to  another.  The  third  set  of  requirements  determines  the  issues 
related  to  data  types  and  quality  of  service  (QoS).  QoS,  associated  with  the  link, 
is  expected  to  be  provided  in  the  NI  using  different  buffering  schemes.  Dynamic 
monitoring  of  link  quality  will  be  deployed  as  a  subsequent  subprotocol  of  PPP  in 
the  further  developments  of  our  model. 

3.  Asymmetry  between  Command  and  Return  Link 

The  number  of  bit  pipes,  and  consequently  data  rate  of  the  return  link 
depend  upon  the  particular  CDL  configuration  used.  The  information  is  assumed 
to  be  multiplexed,  formatted,  and  transmitted  as  a  composite  stream  to  the  surface 
LAN  at  various  data  rates  from  10  Mbps  to  hundreds  of  Mbps  in  the  full-capacity 
configuration.  Several  channel  hierarchies  are  also  assumed  to  be  available  for  each 
data  rate  with  each  channel  being  an  independent  data  stream. 
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As  previously  stated,  the  command  link  handles  the  transmission  of  user 
commands  from  the  surface  LAN  to  the  collection  platform  LAN.  Contrary  to  the 
return  link,  the  command  link  is  assumed  to  employ  a  fixed  data  rate  of  200  Kbps. 
The  asymmetry  cited  in  the  duplex  point-to-point  link,  enforces  separate  perfor¬ 
mance  evaluation  of  the  links  that  will  be  examined  in  the  Chapter  IV. 

4.  Considerations  on  Link  Utilization 

The  major  issue  to  be  addressed  in  this  unique  network  architecture  is 
efficient  utilization  of  the  communication  link.  In  CDL  deployment,  the  link  is  time- 
critical,  bandwidth  is  expensive,  and  prone  to  errors  due  to  the  probable  interference 
and  jamming  in  the  operational  environment. 

The  implementation  of  an  interconnection  mechanism  as  multiple  chan¬ 
nels  for  the  return  link  requires  proper  management  of  these  channels.  There  are 
several  studies  about  high  speed  protocol  controllers  which  investigate  and  propose 
high  performance  [7-9]. 

One  of  these  approaches  is  the  realization  of  a  distributed  multilink  sys¬ 
tem  which  offers  a  load  balancing  mechanism  for  protocol  controllers  in  order  to 
increase  the  total  throughput  of  a  high  speed  data  link  control  system.  The  pro¬ 
posed  method  for  distribution  of  frames  to  multiple  links  evaluates  several  transmis¬ 
sion  allocation  algorithms.  Our  model  employs  two  of  the  most  efficient  algorithms 
which  are  implemented  in  the  NI.  First,  we  modeled  the  circular  allocation  algo¬ 
rithm,  which  calls  for  the  allocation  of  frames  to  the  NI  transmitters  in  a  circular 
order  regardless  of  the  state  of  individual  transmitter  buffers  [7].  Secondly,  we  im¬ 
plemented  the  empty  selection  algorithm,  which  requires  the  selection  of  an  empty 
area  in  transmitting-waiting  buffers  for  frame  allocation  [7].  The  decision  process, 
based  on  determining  the  next  candidate  for  transmission  allocation,  is  also  carried 
out  by  NI  in  order  to  provide  transparency  to  end  stations. 
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Although  load  balancing  is  aimed  towards  the  efficient  multiple  link  uti¬ 
lization,  side  effects  introduced  by  this  procedure  must  be  examined  carefully.  The 
slippage  among  multiple  links  due  to  different  transmission  capacities  causes  non- 
deterministic  arrival  times  of  data  on  the  receiving  end.  For  this  reason,  after  the 
frames  are  received,  reordering  of  them  is  unavoidable.  Thus,  the  trade-off  is  in¬ 
creased  receive-end  buffer  size  necessary  for  this  process  or  efficient  multiple  link 
utilization.  Our  model  does  not  address  the  issues  about  resequencing  of  frames  on 
the  receiving  end.  Instead,  a  simple  time  division  multiplexing  procedure  is  per¬ 
formed  for  transmission  such  that  consecutive  frames  coming  from  the  same  station 
are  sent  through  the  same  transmission  channel  regardless  of  the  load  balancing 
algorithm  in  use.  Thus,  the  reordering  problem  is  solved  automatically  with  this 
simplification. 

5.  The  Effects  of  Jamming 

Another  feature  intrinsic  to  CDL  is  varying  bit  error  rate  (BER)  affecting 
links  severely  due  to  the  nature  of  the  deployment  environment.  A  constant  BER 
can  not  be  assumed  in  the  model  during  the  existence  of  the  link.  The  exact  system 
performance  must  be  evaluated  in  the  presence  of  jamming  for  any  typical  military 
application.  Therefore,  the  link  efficiency  must  be  investigated  under  two  different 
types  of  jamming  models  which  are  described  in  the  next  chapter. 
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III.  MODELING  CDL  NETWORK  INTERFACE  IN 

OPNET 


A.  OVERVIEW 

As  discussed  in  Chapter  II,  the  necessity  to  integrate  two  FDDI  LANs  to  each 
other  in  CDL  scenario,  enforces  crucial  changes  in  the  modular  structure  of  OPNET 
model.  All  of  these  changes  are  implemented  in  three  phases: 

•  Applying  the  model  modifications  necessary  to  implement  individual  traffic, 
throughput  etc.  for  separate  FDDI  LANs, 

•  Modeling  the  linking  nodes  in  order  to  accommodate  the  generic  remote  MAC 
bridge  features  in  relation  to  CDL,  and 

•  Linking  two  FDDI  LANs  in  CDL  perspective. 

This  chapter  provides  the  detailed  model  development  in  the  order  above.  The 
explanation  of  FDDI  protocol  and  model  in  OPNET  will  not  be  presented  here. 

The  whole  documentation  for  simulation  development  is  available  in  the  eleven 
volume  set  of  manuals  provided  by  MIL  3,  Inc.  In  addition  to  these  manuals,  [1] 
serves  as  an  extensive  tutorial,  particularly,  for  FDDI  LAN  development.  The  ex¬ 
periences  gained  through  previous  studies  are  readily  documented  in  the  aforemen¬ 
tioned  thesis. 

The  faithfulness  of  the  developed  model  will  also  be  discussed  in  the  last  section 
of  the  chapter. 
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B.  REVISED  FDDI  LAN  MODEL 
1.  FDDI  LAN  Model  in  Brief 

OPNET  provides  a  built-in  model  for  FDDI  LANs.  The  modifications 
achieved  in  a  recent  study  for  model  development  are  focused  on  validating  the  FDDI 
protocol  in  OPNET  [1].  It  includes  the  synchronous  and  asynchronous  transmission 
characteristics  of  the  model.  The  individual  throughput,  mean  delay  and  end-to- 
end  delay  features  for  the  synchronous,  prioritized  asynchronous  and  total  traffic  in 
an  FDDI  LAN  were  modeled  and  examined.  FDDI  multicasting  capability  and  a 
rudimentary  linking  node  for  the  interface  development  are  also  introduced  in  [1]. 

OPNET’s  FDDI  LAN  model  is  implemented  in  a  hierarchy.  Each  LAN  is 
represented  as  a  ring  of  FDDI  stations  connected  to  each  other.  Figure  3  shows  the 
complete  ring  representation  of  an  FDDI  LAN.  The  internal  structure  of  a  10-station 
FDDI  LAN  ring  is  depicted  in  Figure  4. 

Each  station  is  represented  as  an  FDDI  station  model  which  includes 
nodes  connected  to  each  other.  An  FDDI  station  model  is  illustrated  in  Figure 
5.  Each  node  is  defined  by  process  models  that  are  represented  as  state  transition 
diagrams.  Figures  6-8  show  this  modular  model  structure.  The  detailed  explana¬ 
tions  of  the  models  will  not  be  reviewed  here  for  the  reasons  mentioned  before.  A 
brief  introduction  to  revised  FDDI  model  in  OPNET  is  intended  to  lead  to  a  better 
exposition  of  the  model  enhancement  made  in  this  thesis. 

The  ultimate  source  that  determines  the  behavior  of  a  state  in  a  process 
model,  is  “C”  language  codes  embedded  in  that  state.  Thus,  the  modifications 
implemented  throughout  this  thesis  refer  to  code  changes  as  well  as  the  illustration 
of  interconnected  FDDI  LAN  model. 


14 


ringO 


Figure  3:  FDDI  LAN  ring  representation. 


Figure  4:  Ten-station  FDDI  LAN,  fddi.net.  10. 
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llc_sink 

Figure  5:  FDDI  station  model,  fddi. station. 


Figure  6:  Source  process  model,  “fddi.gen”. 


(default) 


Figure  8:  Sink  process  model,  “fddi_sink”. 


2.  Modifications  on  FDDI  Station  Model 

a.  Preliminary 

The  built-in  FDDI  LAN  model  in  OPNET  is  designed  such  that 
only  a  single  LAN’s  statistic  can  be  obtained  at  the  end  of  the  model  simulation. 
This  restriction  forces  revision  of  the  FDDI  station  model,  and  subsequently,  its 
associated  process  models. 

Some  of  the  packet  formats,  used  by  all  FDDI  stations,  are  also 
modified  in  order  to  enhance  the  functionality  of  these  models  in  relation  to  the 
interconnection. 

Throughout  the  description  of  model  development,  OPNET  objects 
are  highlighted  with  a  typewriter  font  as  a  technical  convention.  While  node  models 
are  highlighted  with  a  typewriter  font,  process  models  and  simulation  attributes  are 
set  off  in  double  quotes  with  the  same  font.  Similarly,  packet  formats  are  highlighted 
in  italics  and  double  quotes  within  the  text. 

b.  Source  Node  Modifications 

The  message  traffic,  in  form  of  packets  is  generated  in  llc.src 
which  employs  the  “fddi.gen”  process  model.  The  information  packet  generated 
to  be  sent  to  mac  is  defined  as  u‘fddi_Uc_Jrn .  This  packet  format  is  also  same  for 
the  packets  sent  from  mac  to  llc.sink.  Moreover,  the  necessary  interface  between 
llc_src  and  mac  is  provided  by  ufddi_mac_reqn  interface  control  information  (ICI) 
packet  format.  After  an  information  packet  is  received  in  mac,  u’fddi_Uc_fxJ'  changes 
its  form  to  u,fddi_mac_frn .  Regardless  of  the  functional  differences  between  them,  all 
of  these  packets  are  modified  in  order  to  be  used  in  a  bridge  model.  Consequently, 
three  lines  of  code  is  added  in  the  ARRIVAL  state  of  “f  ddi_gen”  process  model  to 
set  the  new  fields  of  ufddi_Uc _Jrr'  and  ufddi_mac_reqn  packet  formats. 
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The  details  about  the  modifications  on  packet  formats  will  be  stated 
in  Section  E  of  this  chapter. 

c.  Sink  Node  Modifications 

The  packets  are  counted  and  the  statistics  are  gathered  in  the 
llc.sink,  or  in  other  words  “fddi.sink”  process  model.  All  statistics  related  to  a 
LAN  are  updated  through  the  global  variables  in  this  process  model.  In  the  case  of 
a  second  LAN,  this  global  nature  must  be  restricted  to  individual  LANs  to  provide 
a  realistic  representation  of  the  whole  network.  Thus,  all  statistical  attributes  in 
INIT  and  STATS  are  renamed  to  make  them  private  for  the  first  FDDI  LAN.  A 
similar  procedure  is  performed  again  for  a  second  “fddi.sink”  process  model.  This 
process  model  is  named  as  ufddi2_sink”,  and  it  is  embedded  into  llc.sink  nodes 
of  the  second  FDDI  LAN  that  will  be  interconnected.  Furthermore,  the  DISCARD 
state  is  modified  such  that  statistics  are  gathered  only  for  local  traffic  on  the  basis 
of  incoming  frames’  source  addresses. 

C.  BRIDGE  MODEL 

1.  Preliminary 

The  generic  remote  MAC  bridge  that  interconnects  two  FDDI  LANs  is 
composed  of  two  separate  NIs.  Since  symmetric  modifications  are  done  for  both 
LANs,  for  simplicity,  the  NI  in  the  colllection  platform  LAN  is  referred  as  CPNI, 
and  the  NI  in  the  surface  LAN  is  referred  as  SPNI  in  our  FDDI-CDL  model. 

2.  The  CPNI 

a.  Station  Model 

This  represents  the  FDDI  station  model  functioning  as  an  NI  in 
the  collection  platform  LAN.  Figure  9  is  an  illustration  of  the  CPNI  employing 
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Figure  9:  Collection  Platform  LAN  Network  Interface  (CPNI). 
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simplified  137.088  Mbps  mode  return  link  hierarchy  in  the  OPNET  user  interface 
window.  When  compared  to  the  built-in  FDDI  station  model  of  Figure  7,  first 
major  distinction  seen  is  the  implementation  of  llc.sink  as  a  queue  module.  This 
alteration  is  the  fundamental  step  in  creation  of  a  bridge  link.  The  other  differences 
from  the  original  model  include  point-to-point  transmitter  and  receiver  nodes. 

This  particular  station  examines  the  destination  addresses  of  frames 
coming  from  both  LANs.  Based  on  the  addressing,  frames  are  either  destroyed  or 
forwarded  to  destination.  If  the  frames  are  destined  for  the  local  LAN,  they  are 
simply  passed  to  the  local  MAC  level  as  in  the  FDDI  protocol.  The  frames  destined 
for  surface  LAN  are  streamed  through  transmitters'  buffers  from  llc.sink.  Since 
the  CPNI  also  has  the  full  functionality  of  an  ordinary  FDDI  station,  any  frame 
sourced  from  either  LAN  may  be  destined  for  this  station  address. 

While  the  frames  destined  to  the  CPNI  coming  from  its  local  LAN 
are  treated  within  mac,  the  overhead  of  MAC  access  for  the  frames  coming  from 
remote  LAN  via  pr.l,  is  prevented  in  Logical  Link  Control  (LLC)  level.  These 
frames  are  evaluated  in  the  llc.src  and  conditionally  passed  to  the  mac  for  trans¬ 
mission  along  the  local  LAN,  or  forwarded  to  llc.sink  for  destruction.  Therefore, 
the  frames  destined  for  the  CPNI  do  not  need  to  be  repeated.  Instead,  they  axe 
by-passed  to  llc.sink  for  higher  layer’s  access. 

The  point-to-point  transmitters,  named  pt.l  thru  pt_4,  are  the 
return  link  transmission  sources.  Information  gathered  in  collection  platform  LAN 
is  conveyed  to  the  stations  on  surface  LAN  by  these  transmitter  nodes.  Transmission 
allocation  procedure  is  realized  according  to  the  load  balancing  algorithm  in  use. 

Conversely,  the  point-to-point  receiver  node,  pr.l  is  connected  to 
11c. src  and  it  serves  as  the  command  link  gate  to  the  collection  platform  LAN. 
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b.  Source  Node  Modifications 


The  source  node  of  the  CPNI  includes  “cp_f ddi.gen”  process  model. 
This  process  model  differs  from  “fddi.gen”  due  to  the  modifications  implemented 
in  its  ARRIVAL  state.  In  this  state,  frames  coming  from  the  surface  LAN  are  de¬ 
termined  first.  If  there  are  incoming  frames,  the  CPNI  postpones  its  own  frame 
generation  until  no  more  frames  are  received.  Then,  the  received  frames’  destina¬ 
tion  addresses  are  checked.  Any  frame  destined  for  the  CPNI  is  simply  forwarded  to 
llc.sink  for  destruction.  Thus,  these  frames  are  not  sent  to  nac  like  the  rest  of  the 
incoming  ones.  The  necessary  interface  along  with  the  information  packet  is  sup¬ 
plied  to  mac  with  “fddijnacjretf  ICI  packet  format.  During  this  ICI  packet  transfer, 
“pri"  field  is  set  to  the  highest  priority  which  is  assigned  to  the  synchronous  trans¬ 
mission.  This  procedure  is  essential  to  keep  the  bridge  model  realistic.  In  FDDI, 
these  priorities  relate  to  LAN  bandwidth  allocation.  Since  priorities  are  only  local 
to  each  LAN  and  FDDI  frames  do  not  contain  an  explicit  priority  field  (unlike  IEEE 
802.5),  there  is  no  way  to  determine  to  which  priority  level  the  frame  received  from 
the  other  LAN  belongs.  Therefore,  once  the  NI  receives  these  frames,  it  always 
sends  them  as  synchronous  traffic  on  its  LAN.  The  “.C”  code  for  “cp_fddi_gen”  is 
provided  in  Appendix  A. 

c.  MAC  Node  Modifications 

The  mac  of  the  CPNI  employs  “cp_fddi_mac”  as  its  process  model 
(Appendix  B).  The  modifications  made  to  the  original  model  are  categorized  in  four 
groups  as  below. 

(1)  “static”  Declarations.  Since  we  use  common  basic  pro¬ 
cess  models  in  stations  with  different  names,  the  functions  and  variables  used  by 
the  process  models  are  made  1  ‘static"  to  prevent  name  conflicts. 
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(2)  INIT  State.  The  token  can  be  generated  by  any  of  the 
stations  in  the  original  OPNET  FDDI  model.  To  simplify  the  simulation  sequence, 
the  INIT  state  code  is  changed  such  that  only  the  NI  is  capable  of  generating  the  first 
token.  This  takes  effect  only  if  the  simulation  environment  file  is  set  as  described  in 
Chapter  IV. 

(3)  FR_REPEAT  State.  The  frames  coming  from  the  phys¬ 
ical  layer  are  inspected  on  the  basis  of  destination  addresses  in  this  state.  The 
modifications  in  FR_REPEAT  refer  to  the  implementation  of  major  bridge  func¬ 
tions.  While  the  frames  addressed  to  the  surface  LAN  are  forwarded  to  llc.sink, 
the  ones  having  a  local  destination  address  are  propagated  in  the  local  LAN.  Thus, 
the  local  traffic  is  effectively  filtered  by  the  NI. 

(4)  ENCAP  State.  The  original  source  address  of  a  frame 
coming  from  llc.src  needs  to  be  preserved  in  this  state.  Furthermore,  a  simple 
check  is  made  for  default  values  of  source  and  destination  addresses  in  “ fddi_mac_reqv 
ICI  packet  format.  Thus,  ufddi_mac _ Jr *  packets  containing  the  same  source  and 
destination  addresses  are  not  erroneously  composed  in  this  state. 

d.  Sink  Node  Modifications 

Several  modifications  are  required  to  the  llc.sink  of  the  NI  as 
described  below.  This  node  uses  the  “cp.fddi.sink”  process  model  and  acts  as 
an  interface  between  the  FDDI  LAN  and  CDL.  As  a  result,  all  three  states  of  this 
process  model  are  modified.  The  modified  “.C”  code  is  in  Appendix  C. 

(1)  EMIT  State.  All  the  global  statistics’  arrays  which  are  used 
in  the  analysis  tool  are  defined  here.  Consequently,  the  statistics  array  needed  for 
the  traffic  monitoring  of  return  link  in  each  priority,  is  also  defined  in  this  state. 

(2)  DISCARD  State.  Notwithstanding  its  name,  the 
“cp.fddi.sink”  process  model’s  DISCARD  state  does  not  discard  all  the  frames. 
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The  source  and  destination  addresses  of  the  frames  are  inspected  here.  The  frames 
having  the  NI  address  as  their  destination  are  destroyed.  Moreover,  if  they  are  gen¬ 
erated  by  local  stations,  the  related  statistics  are  updated.  The  frames  destined  for 
the  remote  LAN  are  not  destroyed.  Instead,  they  are  counted  and  enqueued  in  the 
subqueues  of  llc.sink  for  transmission.  The  transmitters’  status  are  continuously 
monitored  before  and  after  the  transmission  with  OP  NET  statistical  interrupts  de¬ 
scribed  in  Section  D.  The  allocation  of  frames  to  transmitters  using  different  load 
balancing  algorithms  is  also  performed  in  this  state.  The  details  of  this  procedure 
are  provided  in  Section  E. 

(3)  STATS  State.  This  state  refers  to  the  documentation  of 
statistics  at  the  end  of  the  simulation.  It  is  this  state  that  must  generate  the  return 
link  related  statistics. 

3.  The  SPNI 

a.  Station  Model 

This  model  is  one  of  the  FDDI  stations  located  in  the  surface  LAN. 
The  SPNI  employing  the  same  return  link  hierarchy  mentioned  above,  is  depicted 
in  Figure  10.  This  station  has  the  same  functionality  of  the  NI  as  in  collection 
platform  LAN,  but  in  the  reverse  direction.  As  clearly  seen,  there  exists  symmetry 
in  the  number  of  transmitters  and  receivers  with  respect  to  its  correspondent  in 
collection  platform  LAN.  The  node,  llc_src  accesses  mac  via  pr_l  thru  pr_4  that 
are  the  downstream  gates  of  surface  LAN.  The  frames  destined  for  the  SPNI  are 
distinguished  by  llc.src  and  forwarded  to  the  lie. sink  directly.  This  process 
prevents  the  additional  MAC  access  creating  a  significant  overhead. 

Although  the  SPNI  serves  as  a  receive  end-point  for  the  return  link, 
it  is  also  capable  of  generating  its  own  frames  like  other  FDDI  stations. 
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Figure  10:  Surface  Platform  LAN  Network  Interface  (SPNI). 
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The  transmitter,  pt_l  is  command  link  access  node.  This  node  han¬ 
dles  the  frames  coming  from  lie. sink  and  delivers  them  to  the  collection  platform 
LAN.  The  forwarding  and  filtering  decisions  based  on  addressing,  are  implemented 
in  llc.sink  as  in  the  CPNI. 

Symmetric  modifications  are  carried  out  in  the  process  models  of 
spni  with  respect  to  the  CPNI.  Since  much  of  the  details  are  provided  before,  only 
major  distinctions  for  each  node  will  be  stated  below. 

b.  Source  Node  Modifications 

The  source  node  of  the  SPNI  employs  “sp_fddi_gen”  as  the  pro¬ 
cess  model.  The  modifications  implemented  in  this  process  model  are  the  same 
as  “cp_fddi_gen”  with  one  exception.  In  the  ARRIVAL  state,  the  frames  having 
destination  addresses  in  collection  platform  LAN  are  passed  to  llc_sink.  This  in¬ 
spection  is  based  on  the  permanent  database  maintained  in  the  NIs  as  can  be  seen 
in  the  “.C”  code  supplied  in  Appendix  D. 

c.  MAC  Node  Modifications 

The  process  model  “sp_fddi_mac”  has  the  same  alterations  as 
“cp_fddi_mac”  process  model’s  case  in  INIT  and  ENCAP  states.  The  same  vari¬ 
ables  and  all  functions  are  also  defined  as  “static”.  The  difference  appears  in 
FRJREPEAT  state.  Thus,  “.C”  code  provided  in  Appendix  E  includes  only  this 
modified  state.  In  this  state,  the  frames  belonging  to  the  collection  platform  LAN  or 
addressed  to  the  SPNI  are  passed  to  llc.sink,  while  others  are  simply  propagated. 
This  decision  is  also  made  on  the  basis  of  a  priori  knowledge  of  addresses. 

d.  Sink  Node  Modifications 

The  changes  in  INIT  and  STATS  states  of  “sp_fddi_sink”  are 
symmetric  to  the  ones  in  “cp_f ddi.sink”  process  model.  Furthermore,  DISCARD 
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state  modifications  differ  from  “cp_fddi_sink”  process  model’s  DISCARD  state. 
In  this  state,  the  frames  destined  to  the  SPNI  are  destroyed  and  related  statistics 
are  updated  for  the  surface  LAN.  Since  there  is  no  multiple  link  deployment  for 
the  command  link,  transmission  capacity  allocation  is  based  on  FIFO  queue  of 
11c. sink.  For  this  reason,  load  balancing  algorithms  are  not  employed  here.  The 
“.C”  code  for  “sp.f  ddi.sink”  is  provided  in  Appendix  F. 

D.  CDL  MODEL 

1.  OPNET  Model  for  Point-to-Point  Links 
a.  Preliminary 

OPNET  system  models  are  composed  of  distributed  subsystems 
which  need  a  communication  mechanism  among  them.  There  are  several  meth¬ 
ods  available  in  OPNET  for  the  communication  between  two  subsystems,  the  most 
prevalent  being  the  packet-based  one.  In  the  OPNET  environment,  a  packet  is 
a  data  structure  facilitating  information  transfer  from  one  subsystem  to  another. 
While  packet  streams,  represented  as  the  physical  connections,  provide  transmis¬ 
sion  between  nodes  in  the  same  subsystem,  the  ultimate  transfer  of  information  to 
other  subsystems  is  employed  in  the  form  of  communication  links. 

As  mentioned  in  Chapter  II,  CDL  deployment  requires  point-to- 
point  link  management  because  of  the  physical  constraints  of  the  environment. 
Point-to-point  links,  either  simplex  or  duplex,  allow  packets  to  be  transmitted  be¬ 
tween  a  single  pair  of  nodes.  Each  link  consists  of  several  transmission  channels 
between  the  source  and  destination  node  that  it  connects.  In  OPNET,  these  nodes 
are  referred  to  as  transmitters  and  receivers. 


27 


b.  Transmitters 

These  nodes  serve  as  the  exit  points  of  a  station  for  packets  forwarded 
on  point-to-point  data  transmission  links.  They  are  composed  of  multiple  channels, 
each  of  which  is  tied  to  a  receiver  channel  in  a  remote  station  via  point-to-point 
link. 

Transmitters  are  built-in  FIFO  queues  with  infinite  capacity  per  channel. 
These  queues  regulate  the  transmissions  in  a  channel  so  that  only  one  packet  is 
transmitted  on  the  link  at  any  time. 

The  status  of  any  transmitter  can  be  monitored  with  OPNET  statistical 
interrupts.  These  interrupts  are  represented  via  statistics  wires  in  the  OPNET  user 
interface  window.  Particularly,  the  “busy  '  statistic,  which  is  fed  back  to  a  node  from 
a  transmitter  plays  the  most  important  role  for  any  transmission  capacity  allocation 
process. 

c.  Receivers 

As  opposed  to  transmitters,  these  nodes  act  as  entry  points  of  a 
station  for  packets  received  on  point-to-point  data  transmission  links.  They  employ 
the  reverse  functionality  of  the  transmitters.  After  reception  of  packets  on  channels 
in  the  remote  station,  the  packets  are  forwarded  through  output  streams  to  the 
attached  node  of  the  receiver  node  for  further  processing. 

d.  Transceiver  Pipeline  Stages 

In  OPNET,  point-to-point  links  can  be  configured  to  model  packet 
transmission  in  several  ways.  Each  link  includes  a  series  of  default  or  user-definable 
submodels  called  pipeline  stages.  The  source  code  for  all  the  default  models  is 
provided  in  <opdir>/stdmod/base  directory. 
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In  any  pipeline  stage  of  the  model,  the  data  related  to  each  packet 
is  used  in  the  various  computations  related  to  its  transmission.  These  computations 
are  performed  in  order  to  identify  the  reception  time  and  whether  or  not  a  packet 
is  received  correctly. 

Point-to-point  links  are  based  on  a  four  stage  pipeline  that  supports 
the  transfer  of  packets  from  a  transmitter  to  a  receiver.  These  stages  are  described 
below  in  brief. 

(1)  Transmission  Delay.  This  is  the  first  stage  of  the  transceiver 
pipeline.  In  this  stage,  the  amount  of  time  required  for  the  transmission  of  an  entire 
packet  is  calculated.  This  computation  is  performed  independently  for  each  packet 
transmission  on  the  basis  of  channel  “data  rate”  and  length  of  the  packet.  OPNET 
employs  the  default  transmission  delay  model,  “dpt.txdel”  for  this  pipeline  stage. 

(2)  Propagation  Delay.  After  the  first  stage,  packets  are  passed 
to  the  propagation  delay  pipeline  stage.  The  purpose  of  this  stage  is  to  calculate 
the  amount  of  time  for  the  packet  to  reach  the  receiver  in  the  destination  node. 
The  parameter  necessary  for  this  computation  is  the  “delay”  attribute  of  the  point- 
to-point  link.  The  default  propagation  delay  model  provided  by  OPNET  is  called 
“dpt_propdel". 

(3)  Error  Allocation.  Since  the  packets  are  prone  to  errors 
during  transmission,  the  third  stage  of  the  transceiver  pipeline  allocates  errors  for 
transmitted  packets.  The  default  model,  “dpt .error”,  uses  the  “ber”  attribute  of 
the  point-to-point  link  for  this  process.  The  algorithm  implemented  in  this  model 
generates  a  random  number  of  errors  with  a  fixed  BER  during  the  whole  period  of 
the  simulation. 

(4)  Error  Detection  and  Correction.  This  is  the  final  stage 
of  point-to-point  transceiver  pipeline.  The  purpose  of  this  stage  is  to  determine 
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whether  or  not  the  received  packet  can  be  accepted  and  forwarded  to  its  destination. 
The  comparison  is  baaed  on  the  “ecc”  attribute  of  the  receiver  node.  This  attribute 
represents  the  probability  of  bit  error  that  can  be  tolerated  for  acceptability.  If  it 
is  set  to  zero,  default  model  “dpt.ecc”  only  accepts  error-free  packets.  Setting  a 
non-zero  threshold  for  this  attribute  corresponds  to  error  correction  procedure  for 
the  received  packet. 

2.  Error  Modeling  over  Multiple  Links 

a.  Modifications  on  Error  Allocation  Pipeline  Stage 

As  stated  earlier,  error  modeling  over  point-to-point  links  is  carried 
out  in  the  error  allocation  stage  of  transceiver  pipeline.  Since  the  default  pipeline 
stage  model  uses  a  constant  BER  as  the  simulation  progresses,  a  realistic  model  must 
be  developed  for  the  CDL  link.  For  this  purpose,  default  error  model  “dpt  .error” 
is  modified,  and  the  new  model  is  renamed  as  “cdl.pt. error”. 

In  OPNET,  the  necessary  modifications  for  a  pipeline  stage  model 
are  done  in  the  “op_modefs”  directory.  And,  after  these  modifications,  the  cus¬ 
tomized  model  file  must  be  compiled  separately.  So,  “cdl.pt.error”  model  is 
compiled  with  the  following  command: 

cc  -c  ~/op_models/cdl_pt_ermr.ps.c  -I/<opdir>/sys/include 

This  procedure  is  necessary  to  link  other  OPNET  libraries.  Oth¬ 
erwise,  binding  errors  result  during  the  generation  of  simulation  file.  Appendix 
G  is  the  file  “cdl_pt_error.ps .c”,  containing  the  modifications  described  in  this 
section. 

In  contrast  to  the  default  model,  “cdl.pt.error”  performs  error 
allocation  with  a  varying  BER.  Thus,  the  link  attribute  “ber”  is  disregarded  in  this 
stage.  Instead,  new  attributes  are  specified  to  accomplish  a  dynamic  error  allocation 
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stage.  Six  different  attributes  are  added  for  each  channel  in  the  extended  attributes 
menu  of  the  point-  to-point  link.  These  attributes  are  depicted  in  Figure  11,  and 
defined  below. 

(1)  “jam_ber”.  This  attribute  is  the  maximum  BER  on  the 
transmission  channel  of  a  point-to-point  link  during  jamming. 

(2)  “ber_bet_jam_len”.  This  attribute  corresponds  to  the  max¬ 
imum  BER  on  the  transmission  channel  of  a  point-to-point  link  in  the  duration 
between  two  consecutive  jamming  pulses. 

(3)  “jam_length” .  This  is  the  duration  of  a  jamming  pulse  af¬ 
fecting  the  transmission  channel  of  a  point-to-point  link. 

(4)  “interval_bet_jam_len” .  This  is  the  duration  between  two 
consecutive  jamming  pulses  affecting  the  transmission  channel  of  a  point-to-point 
link. 

(5)  “init_jam_offset”.  This  attribute  is  the  initial  offset  time 
on  the  transmission  channel  of  a  point-to-point  link.  This  offset  is  required  for  the 
channel-swept  jammer  which  will  be  described  later. 

(6)  “jammer_type” .  The  last  one  of  the  extended  attributes 
specifies  the  type  of  the  jamming  model  of  which  CDL  link  is  exposed  to. 

b.  Jammer  Implementations 

There  are  two  distinct  jamming  models  implemented  in  this  study. 
These  are  pulsed  jammer  and  channel-swept  jammer,  respectively.  Regardless  of  the 
jamming  type  in  use,  a  transmitted  packet  is  first  time-stamped  in  simulation  time 
domain.  This  time-stamp  is  used  to  dr  , ermine  whether  or  not  a  packet  is  subjected 
to  jamming.  After  this  decision,  further  procedures  are  carried  out  for  each  jammer 
type  independently. 
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Figure  11:  The  attributes  used  for  jamming  patterns. 
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(1)  Pulsed  Jammer.  In  this  model,  all  transmission  channels 
are  exposed  to  separate  pulse  trains  in  time.  This  configuration  is  achieved  by 
setting  up  proper  values  for  previously  described  extended  attributes  in  the  simula¬ 
tion  environment  file.  Appendix  H  is  a  sample  environment  file  configured  for  this 
particular  model. 

In  order  to  provide  a  more  realistic  representation,  the  durations  of 
jamming  pulses  and  BERs  during  these  periods  are  also  randomized  with  uniform 
distribution.  Because  of  this  stochastic  process,  first  four  of  the  extended  attributes 
are  actually  the  maximum  values  that  can  occur  during  transmission.  Consequently, 
each  transmitted  packet  is  subjected  to  a  different  BER  according  to  its  presence  in 
simulation  time  domain.  Figure  12  is  an  illustration  of  a  pulsed  jammer. 

(2)  Channel-Swept  Jammer.  The  jammer  implemented  with 
this  model  sweeps  each  transmission  channel  consecutively  in  the  simulation  time 
domain.  Again,  the  necessary  configuration  for  this  procedure  is  provided  by  the 
extended  attributes’  values  which  are  specified  in  the  simulation  environment  file. 
As  opposed  to  the  previous  jammer  model,  the  channel-swept  jammer  does  not 
randomize  the  durations  of  jamming  pulses  to  maintain  consecutive  pulse  scheme 
in  order.  However,  BERs  are  still  randomized  with  uniform  distribution.  A  proper 
offset  must  be  specified  in  the  “init_  j  am_of f  set”  extended  attribute  of  the  point- 
to-  point  link  to  provide  consecutive  pulses  as  depicted  in  Figure  13. 

E.  LAN  INTERCONNECTION 

FDDI-CDL  interconnection  can  be  realized  using  the  modifications  described 
so  far.  Figure  14  shows  the  ultimate  interconnected  model.  While  the  top  simplex 
point-to-point  link  from  surface  LAN  (ringl)  to  collection  platform  LAN  (ringO) 
represents  the  command  link,  other  four  links  in  the  reverse  direction  represent  the 
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Figure  12:  Pulsed  jammer  representation. 
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Figure  13:  Channel-swept  jammer  representation. 
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Figure  14:  Interconnected  network  model,  fddi.cdl 


simplified  return  link  hierarchy.  In  this  section,  specific  features  of  this  model  of 
LAN  interconnection  are  stated. 

1.  Addressing  Through  The  Remote  Bridge 

The  interconnection  mechanism  is  based  on  the  forwarding  decision  made 
by  the  inspection  of  station  addresses.  The  stations  th&t  reside  on  LANs  have  unique 
addresses.  Our  model  employs  10-station  FDDI  LANs  on  both  sides  of  the  CDL 
link.  In  order  to  simplify  MAC  bridge  functions,  these  addresses  are  permanently 
installed  in  the  filtering  databases  of  the  CPNI  and  the  SPNI.  These  stations,  acting 
as  NIs,  have  the  maximum  station  number  of  each  LAN.  Thus,  filtering  decision 
is  based  on  the  comparison  of  these  NI  addresses.  If  the  number  of  stations  or 
their  addresses  need  to  be  changed,  those  NIs'  filtering  databases  must  be  updated 
according  to  the  new  address  assignments.  Besides,  the  DISCARD  state  of  process 
models  of  llc.sink  nodes  of  the  station  models  in  both  LANs  must  also  be  modified 
appropriately  to  obtain  individual  LAN  statistics. 

The  address  information  is  sent  to  the  nodes  with  several  packet  formats 
in  OPNET  modeling  environment.  The  packet  format,  “Jddijmac _fi*,  allocates 
16  bits  to  represent  station  addresses.  In  current  bridging  standards  [2,  5],  the 
addresses  are  represented  as  48  bits  within  a  frame.  Thus,  the  mentioned  packet 
format  is  modified  to  include  48-bit  source  and  destination  addresses.  Furthermore, 
the  necessity  to  include  source  and  destination  addresses  in  packet 

format  results  in  the  same  modification.  This  packet  format  is  used  in  llc.src 
nodes  of  NIs  to  prevent  unnecessary  MAC  access  as  mentioned  in  Section  C. 

For  interface  control  purposes,  “src_addr”  field  is  also  added  in  the 
original  “fddijmacjrtq"  ICI  packet  format.  This  address  is  used  by  the  mac  to  keep 
the  original  source  address  of  a  frame  unmodified  during  the  data  transfer  between 
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LANs.  Figures  15-17  show  the  resulting  packet  formats  in  the  parameter  editor  of 
OPNET  user  interface  window. 

2.  Load  Balancing  over  Multiple  Links 

As  stated  before,  the  return  link  is  composed  of  multiple  channels.  In 
our  model,  simplified  return  link  hierarchy  is  represented  as  four  simplex  point-to- 
point  links,  each  having  one  transmission  channel.  Data  rates  for  each  channel  on 
both  links  are  specified  as  in  Figures  18  and  19. 

This  multiple  channel  hierarchy  requires  an  algorithm  for  transmission 
capacity  allocation.  The  selected  algorithm  eventually  leads  to  load  balancing  over 
multiple  links.  In  the  OPNET  model  implemented,  this  procedure  is  carried  out 
by  llc_sink  of  the  CPNI.  The  node,  llc.sink,  is  in  the  form  of  a  queue  module 
consisting  of  four  subqueues.  Thus,  the  transmission  capacity  allocation  process  is 
basically  allocating  frames  to  these  subqueues  that  are  attached  to  the  individual 
transmitters.  In  other  words,  the  subqueues  act  as  buffers.  Instead  of  allocating 
frames  to  the  transmitter  buffers  directly,  this  method  is  chosen  to  monitor  the 
effects  of  load  balancing  algorithm  in  use.  As  stated  in  Section  D,  point-to-point 
transmitter  buffers  are  built-in  queues  with  infinite  capacity.  This  approach  would 
not  be  realistic  for  a  bridge  model.  In  a  real  bridge,  insufficient  transmission  queue 
sizes  can  cause  dropping  of  frames.  In  the  CDL  NI  model,  the  frame  currently  being 
transmitted  resides  in  the  transmitter  buffer  until  its  transmission  is  completed. 
Other  frames  waiting  for  transmission  reside  in  the  finite  subqueues  of  llc.sink. 
Then,  these  frames  are  forwarded  to  the  related  transmitter  when  the  “busy”  signal 
goes  low,  meaning  that  the  transmitter  channel  is  idle.  This  is  accomplished  by 
OPNET  statistical  interrupts,  and  the  allocation  algorithm  calls  for  the  continuous 
monitoring  of  this  signal. 
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Figure  15:  Modified  packet  format,  ufddi_llc _frn . 
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Figure  16:  Modified  packet  format,  *fddi_mac_fi!' 


Figure  17:  Modified  ICI  packet  format,  afddi_mac_rc<f . 


40 


Figure  18:  Return  link  data  rates  and  new  attributes  for  11c .sink. 


Figure  19:  Command  link  data  rate. 
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The  algorithm  can  be  specified  for  the  model  from  the  simulation  envi¬ 
ronment  file.  So,  an  extended  attribute,  “load  balancing  algorithm”,  is  defined 
for  the  CPNI  as  in  Figure  18.  Regardless  of  the  load  balancing  algorithm  in  use,  a 
frame  is  allocated  to  a  buffer,  each  time  “cp.fddi.sink”  process  model  is  executed. 
Then,  the  order  of  subqueues  is  determined  with  an  incrementing  index  according 
to  the  allocation  algorithm  employed.  Every  subqueue  has  an  associated  source 
address  field,  so  that  previously  allocated  frame’s  source  address  is  maintained  in 
that  subqueue.  Two  algorithms  are  implemented  as  described  below. 

a.  Circular  Allocation  Algorithm 

Before  allocating  frames  in  a  circular  order  to  llc.sink  subqueues, 
the  source  address  of  an  incoming  frame  is  inspected  first.  If  that  frame  is  sent 
from  a  station  address  which  has  been  previously  allocated  to  that  subqueue,  the 
new  frame  is  also  buffered  in  the  same  subqueue.  Thus,  consecutive  frames  from 
the  same  source  are  sent  over  the  same  transmission  channel.  Otherwise,  allocation 
is  still  done  circularly  ignoring  the  state  of  individual  subqueues.  Because  of  the 
different  channel  data  rates,  some  buffers  can  fill  up  and  even  lead  to  frame  loss, 
unless  the  sizes  of  these  buffers  are  selected  adequately. 

b.  Empty  Selection  Algorithm 

This  algorithm  refers  to  the  allocation  of  frames  to  subqueues  hav¬ 
ing  the  maximum  empty  slots.  The  frequency  of  the  occurrence  of  empty  slots  is 
directly  proportional  to  the  data  rate  of  transmission  channel.  Thus,  the  buffer 
sizes  needed  for  this  algorithm  are  likely  to  be  less  than  the  ones  needed  for  the 
previous  algorithm.  Allocation  of  consecutive  frames  sent  from  the  same  station  is 
still  implemented  in  the  same  manner  as  the  circular  allocation  algorithm. 
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F.  FAITHFULNESS  OF  THE  MODEL 

The  CDL  NI  model  is  developed  with  the  extensive  features  provided  by  OP- 
NET.  Modifications  to  the  original  models  are  carried  out  step-by-step,  so  that  the 
original  modularity  is  not  sacrificed  with  new  enhancements. 

The  OPNET  FDDI  protocol  model  is  studied  and  validated  in  [1].  Further 
model  improvements  of  this  thesis  are  realized  on  the  basis  of  the  results  of  this 
previous  study.  During  the  CDL  model  development,  specific  system  requirements 
were  primarily  considered  and  adapted  to  OPNET  modeling  environment. 

In  a  real  CDL  deployment,  depending  on  the  deployed  channel  hierarchy,  an 
aggregate  bit  stream  at  the  high  frequency  is  obtained  using  multiplexing  of  the 
independent  transmission  channels.  Then,  at  the  receiving  end,  demultiplexing  is 
carried  out.  Our  CDL  system  implementation  does  not  model  the  link  between 
the  output  of  the  multiplexer  and  the  input  of  the  demultiplexer.  Instead,  the 
multiplexer  input  and  the  demultiplexer  output  are  modeled  and  monitored.  In 
other  words,  the  link  is  not  modeled  at  the  aggregate  bit  stream  level,  but  at  the 
individual  channel  level.  This  permits  us  to  view  the  link  as  a  set  of  independent 
channels  rather  than  a  single  stream  of  bits  without  loosing  the  realistic  nature  of 
the  link. 

The  corruption  of  packets  in  a  real  jamming  environment  is  of  an  irregular 
nature.  The  bits  in  a  data  stream  may  be  inverted,  or  random  sequences  of  bit 
patterns  may  be  added  to  the  information  packet.  In  the  OPNET  modeling  en¬ 
vironment,  error  allocation  is  done  by  inverting  the  bits  present  within  a  packet. 
So,  the  jammer  modeling  is  based  on  this  constraint.  In  other  words  we  can  not 
model  loss  of  the  CDL  framing  synchronization  in  OPNET.  However,  this  study 
is  targetted  at  the  data  link  layer  and  above.  Therefore,  this  limitation  does  not 
present  a  problem.  Despite  this  limitation,  since  our  jamming  models  use  a  varying 
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BER  within  the  random  durations  in  the  simulation  time  domain,  the  desired  error 
allocation  feature  is  still  provided.  In  the  model,  the  error  allocation  process  within 
a  link  is  such  that  a  random  number  of  errors  are  introduced  in  a  randomly  selected 
packet  in  each  channel.  This  is  essentially  what  real  jamming  of  the  aggregate  CDL 
bitstream  will  result  in.  Two  types  of  jamming  models  are  investigated  in  order  to 
evaluate  system  performance  in  a  wider  variety  of  scenarios. 

Finally,  interconnection  is  realized  in  terms  of  an  upcoming  bridging  standard 
[5],  so  that  dependability  of  the  model  is  ensured. 
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IV.  MODEL  TESTING 


A.  OVERVIEW 

This  chapter  provides  severed  test  results  in  relation  to  the  enhanced  capabili¬ 
ties  of  our  model.  These  tests  include  the  monitoring  of  traffic  in  the  whole  network 
for  individual  LANs  and  the  evaluation  of  transmission  capacity  allocation  algo¬ 
rithms  for  the  return  link.  The  effects  of  different  jamming  patterns  on  the  return 
link  are  also  demonstrated.  Similarly,  the  command  link  performance  is  studied  in 
brief. 


B.  PERFORMANCE  METRICS 

During  the  simulation  tests,  a  moderate  traffic  load  is  offered  for  both  LANs 
that  are  interconnected.  The  behavior  of  the  OPNET’s  FDDI  model  with  varying 
traffic  loads  was  studied  previously  [1],  Therefore,  the  tests  are  primarily  run  and 
evaluated  for  NI  functional  characteristics  and  the  CDL  link  performance  during 
jamming. 

The  transmission  capacity  allocation  algorithms  related  to  the  load  balancing 
over  multiple  links  are  monitored  in  the  llc.sink  node  of  the  CPNI.  The  buffers 
within  this  node  are  observed  in  order  to  evaluate  these  algorithms’  efficiency  with 
the  “pksize”  and  “delay”  probes  in  the  OPNET  analysis  editor.  These  probes 
are  simply  used  to  determine  the  advantages  and  drawbacks  of  the  load  balancing 
implementations.  The  “pksize”  attribute’s  name  is  misleading  in  OPNET  probe 
editor  and  it  refers  to  the  number  of  packets  residing  in  a  subqueue.  Thus,  while 
“pksize”  probe  is  the  means  to  determine  the  required  buffer  sizes,  the  transmission 
waiting  periods  of  the  packets  in  the  buffers  are  monitored  with  the  “delay”  probe. 
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The  average  BER  of  the  return  link  is  monitored  on  the  SPNI  receivers  with 
“avg_ber”  probes  for  each  transmission  channel.  In  this  study,  the  BER  of  the 
command  link  during  jamming  is  not  investigated.  The  utilization  of  multiple  links 
under  different  jamming  patterns  is  also  examined  on  the  transmit  and  receive-ends 
of  the  link.  Results  of  the  different  simulation  experiments  follow  in  the  next  section. 

C.  TRAFFIC  MONITORING 

1.  Overview 

The  modifications  made  within  this  thesis  to  the  OPNET  FDDI  model  I 

provide  the  individual  monitoring  of  two  interconnected  LANs.  For  CDL  deploy¬ 
ment,  the  collection  platform  LAN  is  likely  to  direct  most  of  the  traffic  to  the  return 
link,  although  there  may  be  still  an  amount  of  local  traffic  under  consideration.  On 
the  other  side,  the  surface  LAN  directs  some  of  its  traffic  to  the  command  link  while 
introducing  a  significant  amount  of  traffic  locally.  For  the  reasons  specified  above, 
each  LAN  must  be  monitored  independently  to  provide  a  realistic  representation  of 
the  entire  network. 

2.  Setup 

The  simulation  was  set  up  to  display  local  traffic  within  one  LAN  and 
the  traffic  directed  to  the  remote  LAN.  Both  LANs  consist  of  ten  FDDI  stations, 
generating  packets  at  a  constant  rate.  The  stations  generated  20000-bit  packets  at 
an  arrival  rate  of  250  packets  per  second,  so  that  50  Mbps  of  the  traffic  load  is 
expected  for  a  LAN.  The  stations  f9  and  f  19  are  specified  as  the  CPNI  and  the 
SPNI,  respectively.  While  the  surface  LAN  can  send  packets  to  all  stations  in  the 
interconnected  network  model,  the  collection  platform  LAN  is  designated  to  direct 
its  total  traffic  only  to  the  return  link.  Both  LANs  are  capable  of  generating  90 
percent  asynchronous  traffic  at  different  priorities.  Target  Token  Rotation  Time 
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(TTRT)  was  set  to  4ms,  and  necessary  synchronous  bandwidth  was  determined  as 
0.08955675  as  the  required  OPNET  parameter.  This  value  is  a  function  of  TTRT; 
it  is  computed  by  following  the  necessary  steps  as  described  in  [1]  and  amounts  to 
0.358227  ms/station. 

As  mentioned  before,  the  initial  tokens  are  launched  by  the  NIs.  Thus, 
in  the  simulation  environment  file,  the  “spawn  station”  attribute  is  disabled  by 
setting  it  to  20.  This  number  is  chosen  arbitrarily,  but  it  must  be  greater  than  the 
maximum  station  number  that  exists  in  the  entire  network  model.  This  is  just  an 
OPNET  hack  to  keep  the  “fddi.mac”  process  model  of  original  “fddi .station” 
unchanged. 

Furthermore,  the  “accelerate.token”  attribute  is  also  disabled  by  set¬ 
ting  it  to  zero.  When  this  flag  is  enabled,  the  token  is  blocked  in  the  station  which 
has  no  packets  to  transmit.  This  procedure  leads  a  faster  simulation,  and  it  is  not 
part  of  the  real  FDDI  protocol.  The  interconnected  model  is  not  allowed  to  use  this 
shared  flag,  because  of  the  tokens  belonging  to  different  LANs. 

3.  Results 

Figure  20  shows  the  local  throughput  observed  in  the  surface  LAN.  The 
random  generation  of  destination  addresses  with  uniform  distribution  led  a  consid¬ 
erable  amount  of  traffic  to  the  local  stations.  Figure  21  is  the  throughput  directed 
to  the  command  link  from  the  surface  LAN.  In  both  cases,  90  percent  of  the  traffic 
belongs  to  the  asynchronous  transmission  as  expected. 

Figures  22  and  23  show  the  traffic  contributed  to  the  whole  network 
by  the  collection  platform  LAN.  While  there  is  no  local  traffic  appearing  within 
this  LAN,  all  traffic  is  directed  to  the  return  link  with  the  specified  proportion  of 
asynchronous  transmission. 
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Figure  20:  Local  throughput  of  surface  LAN. 
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Figure  21:  Traffic  directed  to  the  command  link. 
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D.  RETURN  LINK  PERFORMANCE 

1.  Overview 

The  station  acting  as  the  CPNI  in  the  collection  platform  LAN  is  capable 
of  buffering  packets  in  its  llc.sink  node.  The  buffering  is  realized  in  terms  of  a 
transmission  capacity  allocation  algorithm  for  the  efficient  utilization  of  the  return 
link.  The  tests  run  in  this  section  are  related  to  the  evaluation  of  these  algorithms 
and  the  link  throughput  under  jamming. 

Two  tests  are  described  here.  The  first  test  is  monitoring  of  packets 
accumulated  in  the  buffers  with  two  distinct  allocation  algorithms.  The  second  test 
is  observing  the  multiple  link  throughput  at  both  ends  of  the  CDL  link. 

2.  First  Test 

a.  Setup 

This  test  is  based  on  the  evaluation  of  different  types  of  load  bal¬ 
ancing  over  the  multiple  links.  Both  FDDI  LANs  are  configured  with  the  same 
parameters  as  it  is  done  for  the  traffic  monitoring  tests.  In  the  simulation  environ¬ 
ment  file,  the  “load  balancing  algorithm”  attribute  is  also  set  appropriately  for 
two  different  runs.  This  attribute  is  set  to  “0”  for  the  circular  allocation  algorithm 
as  it  is  set  to  ul”  for  the  empty  selection.  Besides,  the  llc.sink  subqueue  capacities 
are  set  to  hold  a  maximum  of  200  packets.  This  was  intended  to  observe  the  buffers’ 
saturation  and  overflow  as  the  traffic  is  directed  to  the  return  link  at  a  constant 
rate. 

b.  Results 

Figure  24  shows  the  accumulation  of  packets  in  the  buffers  when 
the  circular  allocation  algorithm  is  in  use.  As  seen,  the  first  transmission  channel 
having  the  lowest  data  rate  causes  its  buffer  to  fill  up  quickly.  Consequently,  the 


52 


O  **■*•.  ft.  Us^ttakH 1 .  tfcj&M 
A  <*•*  »  .  U«.«iak{  I  ] 


Figure  24:  Accumulation  of  packets  on  the  CPNI  buffers  with  circular  allocation. 

continuous  overflow  of  this  buffer  is  unavoidable  with  the  specified  buffer  size  as 
depicted  in  Figure  25. 

Conversely,  the  empty  selection  algorithm  results  in  equal  utilization  of 
buffers  for  the  same  traffic  load  without  introducing  any  overflow  as  shown  in  Figure 
26. 

The  queuing  delays  of  the  packets  observed  for  each  buffer  using  both 
algorithms  are  shown  in  Figures  27  and  28.  As  compared  to  the  empty  selec¬ 
tion  algorithm,  the  circular  load  balancing  provides  a  faster  transmission  rate  for 
the  channels  having  higher  data  rates  and  introduce  a  longer  queuing  delay  for 
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Figure  25:  Buffer  overflows  in  the  CPNI  with  circular  allocation. 
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Figure  20:  Accumulation  of  packets  in  the  CPNI  buffers  with  empty  selection. 
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Figure  27:  Queing  delay  of  the  CPNI  buffers  with  circular  allocation. 
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Figure  28:  Queing  delay  of  the  CPNI  buffers  with  empty  selection. 
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the  slower  channel.  Primarily,  the  insufficient  buffer  sizes  are  the  major  drawback 
in  the  circular  allocation  algorithm,  even  though  multiple  links  are  still  efficiently 
utilized. 

As  opposed  to  the  circular  allocation,  empty  selection  algorithm  does 
not  require  greater  buffer  sizes.  It  also  offers  an  efficient  utilization  scheme  with  the 
penalty  of  more  queuing  delay  for  the  channels  with  higher  transmission  capacities. 

S.  Second  Test 

a.  Setup 

This  test  is  intended  to  verify  the  effects  of  jamming  models  on 
the  return  link.  The  same  simulation  configuration  is  used  in  this  test  as  before. 
Moreover,  as  defined  in  Chapter  III,  the  jamming  related  attributes  are  set  up  prop¬ 
erly  to  model  two  different  jammers.  The  environment  file  used  for  the  pulsed 
jammer  simulation  is  provided  in  Appendix  H.  For  the  channel-swept  jammer  sim¬ 
ulation,  the  same  type  of  jamming  attributes  are  set  to  identical  values  except 
“init_jam_offsetT’.  This  attribute  is  doubled  for  each  channel  so  that  consecutive 
pulses  can  be  created  with  proportional  offsets.  The  jamming  related  attributes  of 
the  environment  file  for  the  channel-swept  jammer  simulation  is  in  Appendix  I. 

The  propagation  delay  of  the  CDL  model  is  also  specified  as  a  typical 
value  of  60  ms  in  the  “delay”  attribute  of  each  link. 

b.  Results 

Figure  29  shows  the  throughput  of  each  transmitter  channel  in  the 
CPNI  end  of  the  return  link.  As  expected,  identical  number  of  bits  are  injected  into 
the  return  link  for  the  channels  having  the  same  data  rates.  The  packets  awaiting 
transmission  in  the  buffers  do  not  contribute  to  this  statistic. 
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Figure  29:  Throughput  at  the  transmit-end  of  the  return  link. 

The  average  BERs  introduced  by  the  pulsed  jammer  and  the  channel- 
swept  jammer  are  depicted  in  Figures  30  and  31,  respectively.  As  monitored  in  the 
receivers  of  the  SPNI,  all  of  the  links  are  equally  degraded  in  the  channel-swept 
jammer’s  case  due  to  the  consecutive  pulses.  In  the  presence  of  pulsed  jammer,  the 
links  exposed  to  the  longer  duration  of  jamming  pulses  are  affected  more  severely. 

Consequently,  since  the  packets  are  corrupted  due  to  jamming  dur¬ 
ing  the  transmission,  the  throughput  attained  in  the  receive-end  is  not  the  same  as 
the  transmit-end  of  the  return  link.  The  effects  of  two  different  jamming  models  on 
the  received  throughput  can  be  seen  in  Figures  32  and  33. 
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Figure  30:  Average  BER  of  the  return  link  caused  by  pulsed  jammer. 
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Figure  31:  Average  BER  of  the  return  link  caused  by  channel-swept  jammer. 
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Figure  32:  Effect  of  pulsed  jammer  on  the  return  link  throughput. 
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Figure  33:  Effect  of  channel-swept  jammer  on  the  return  link  throughput 
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E.  COMMAND  LINK  PERFORMANCE 

Although  the  command  link  is  modeled  with  respect  to  the  CDL  system  re¬ 
quirements,  its  performance  is  not  studied  in  as  much  detail  as  the  return  link  in  our 
simulations.  As  described  before,  the  command  link  employs  a  relatively  low  fixed 
data  rate  in  its  channel  hierarchy  compared  to  the  return  link.  Since  multiple  links 
are  not  modeled  for  this  particular  link,  no  algorithm  for  transmission  allocation 
is  developed  in  llc.sink  node  of  the  SPNI.  As  a  result,  the  packets  waiting  for 
transmission  to  the  collection  platform  LAN  are  accumulated  in  the  single  buffer  of 
the  SPNI. 

Figure  34  shows  the  number  of  packets  buffered  over  time.  The  accumulation 
is  faster  due  to  the  lower  transmission  capacity  of  the  command  link.  This  is  also 
emphasized  with  the  buffer  queuing  delay  as  depicted  in  Figure  35.  The  asymmetric 
data  rates  existing  in  the  CDL  link  require  a  greater  buffer  size  for  the  SPNI.  This 
buffer  size  must  be  evaluated  with  respect  to  the  amount  of  traffic  injected  into  the 
CDL  by  the  surface  LAN. 

Similarly,  the  information  transferred  over  the  command  link  is  monitored  in 
both  NIs  of  the  interconnected  model.  Figure  36  is  a  simple  illustration  of  the  link 
throughput  in  transmit  and  receive-ends  when  the  command  link  is  not  exposed  to 
any  jamming. 
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Figure  34:  Accumulation  of  packets  in  the  SPNI  buffer. 
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Figure  35:  Queing  delay  of  the  SPNI. 
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Figure  36:  Throughput  at  the  transmit  and  receive-ends  of  the  command  link. 


V.  CONCLUSIONS  AND  RECOMMENDATIONS 

A.  CONCLUSIONS 

In  this  thesis,  we  have  presented  a  performance  analysis  of  a  network  interface 
device  that  interconnects  two  remote  FDDI  LANs  using  the  CDL.  The  efficiency  of 
the  CDL  model  is  evaluated  with  two  different  jamming  patterns  that  faithfully  rep¬ 
resent  the  real  environmental  conditions.  The  distribution  of  load  over  the  multiple 
links  is  also  investigated  using  different  transmission  capacity  allocation  algorithms 
so  that  the  overall  link  utilization  can  be  maximized.  The  need  for  such  algorithms 
is  based  on  the  near-capacity  return  link  traffic  load  that  is  expected  in  the  intercon¬ 
nected  network.  It  is  seen  that  the  circular  allocation  algorithm  is  able  to  provide 
a  faster  transmission  for  the  channels  having  higher  data  rates  with  the  penalty  of 
increased  buffer  size  for  the  slower  channels.  When  the  empty  selection  algorithm 
is  in  use,  identical  buffer  sizes  can  be  selected  for  any  transmission  channel,  if  the 
drawback  of  longer  queuing  delays  for  faster  channels  are  acceptable. 

This  thesis  lays  the  foundation  for  simulating  the  multilink  point-to-point  pro¬ 
tocol  over  the  CDL  in  the  further  development  of  the  network  interface  features  for 
the  CDL  project. 

B.  RECOMMENDATIONS 

Further  developments  of  our  model  will  include: 


1.  Simulation  of  a  link  monitoring  protocol  over  the  return  and  command 
link.  This  capability  will  facilitate  feedback  to  the  LAN  applications 


(end-systems)  about  the  link  status  and  permit  end-to-end  performance 
analysis. 

2.  Incorporation  of  a  forwarding/ filtering  database  in  the  NI. 

3.  Incorporation  of  a  traffic  generation  in  the  LAN  end-systems  that  is  closer 
to  the  characteristics  of  real  traffic  patterns. 

4.  Accurate  estimation  of  NI  buffer  capacity  for  individual  channels  with 
various  effective  BERs  over  the  link. 

Since  the  tool-specific  token  acceleration  feature  is  disabled  during  our  simu¬ 
lations,  a  new  mechanism  need  to  be  employed  for  a  faster  simulation  in  a  larger 
network  model. 
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APPENDIX  A 

CPNI  SOURCE  “C”  CODE 


“cp  fddi  gen.pr.c” 

The  line  numbering  in  this  appendix  is  within  this  thesis  only,  and  does  not  corre¬ 
spond  with  that  seen  in  OPNET’s  text  editors. 

1  /*  Process  model  C  fora  file:  cp_fddi_gen.pr.c  */ 

2  /*  Portions  of  this  file  Copyright  (C)  NIL  3,  Inc.  1902  */ 


3  /•  OPIET  sy steal  definitions  */ 

4  fin cl ode  <opnet.h> 

5  f include  "cp_fddi_gen.pr.hH 
«  FSM.EXT.DECS 


7  /*  Header  block  */ 

8  id e fine  KAC_LAYER_0UT_ STREAM  0 

9  fdefine  LLC_SIIK_OUT_STREAM  1  /♦18APR94*/ 

10  /*  define  possible  service  classes  for  fraaes  */ 

11  fdefine  FDDI_SVC_ASYIC  0 

12  fdefine  FDDI_SVC_SYIC  1 

13  /«  define  token  classes  */ 

14  fdefine  FDDI.TK.IOIRESTRICTED  0 

15  fdefine  FDDI.TK.RESTRICTED  1 


16 

/•  State  variable  definitions  */ 

17 

typedef  struct 

18 

{ 

19 

FSH_SYS_STATE 

20 

Distribution* 

sv_ int  er_dist_ptr ; 

21 

Distribution* 

sv_len_dist_ptr; 

22 

Distribution* 

sv_dest_dist_ptr ; 

23 

Distribution* 

sv_pkt_pr iority_ptr ; 

24 

Objid 

sv_aac_objid; 

26 

Objid 

sv_ay_id; 

26 

int 

s v_lov_dest _addr ; 

27 

int 

sv_high_dest_addr; 
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28 

1st 

sv_station_addr; 

29 

1st 

sv.src.addr; 

30 

1st 

a  v.lov.pkt  priority ; 

31 

int 

BT_high_pkt_pr ior ity ; 

32 

double 

a v_arrival_rat e ; 

33 

double 

8Y_Bean_pk_len ; 

34 

double 

av.aaync.nix; 

35 

Id* 

■▼.nac.iciptr ; 

36 

Id* 

sv_nac_iciptr 1 ; 

37 

Id* 

ar.llc.ici _ptr ; 

38 

Packet* 

av.pkptrl; 

39 

>  cp.fddi_gen_state; 

40 

•define  pr_etate_ptr 

((cp_fddi_gen_state*)  Sinl_Nod_State. 

41 

•define  inter.dist.ptr 

pr_atate.ptr->av_inter_diat_ptr 

42 

•define  len.diat.ptr 

pr_atate.ptr->av.len.diat_ptr 

43 

•define  de*t.diat_ptr 

pr_atate_ptr->av_deat_diat_ptr 

44 

•define  pkt.priority.ptr 

pr_atate_ptr->av_pkt.priority_ptr 

45 

•define  aac.objid 

pr_atate.ptr->av  jeac.ob j id 

46 

•define  ny.id 

pr_stat*_ptr->a*_ny.id 

47 

•define  lou.dest.addr 

pr_atate_ptr->av_lo»_deat_addr 

48 

•define  bigh.deat.addr 

pr_atate_ptr->8v_high_deat_addr 

49 

•define  atation_addr 

pr_state.ptr->s v.atat ion.addr 

50 

•define  arc.addr 

pr_atate.ptr->av_arc.addr 

51 

•define  lo«.pkt_priority 

pr_atate_ptr->av_lou_pkt .priority 

52 

•define  high.pkt .priority 

pr_atate_ptr->av_high_pkt priority 

53 

•define  arrival.rate 

pr_atate_ptr->av_arrival_rate 

64 

•define  nean.pk.len 

pr.atate.ptr->av_aaync.nix 

65 

•define  nac.iciptr 

pr_stat*.ptr->sv_nac_iciptr 

66 

•define  nac.iciptrl 

pr_Btate_ptr->av_nac_iciptrl 

57 

•define  Uc.id.ptr 

pr_atate_ptr->av_llc_id_ptr 

68 

•define  pkptrl 

pr_atate_ptr->av_pkptrl 

59 

/*  Process  nodal  interrupt  handling  procedure  */ 

60 

void 

61 

cp.fddi.gen  () 

62 

{ 

63 

Packet 

*pkptr; 

64 

int 

pklen; 

66 

int 

deat.addr; 

66 

int 

i,  restricted; 

67 

int 

pkt.prio; 

68 

FSM.B1TE&  (cp.fddi.gen) 

66 


68  FSM_BLOCK_SVrrCH 

70  { 

71  /* - */ 

72  /**  state  (HIT)  enter  executives  **/ 

73  FSH.ST1TE.EITER.UIF0RCED  (0.  stateO.enter.exec,  MIIITM) 

74  i 

76  /*  determine  id  of  ora  processor  to  use  in  finding  attrs  */ 

76  my.id  ■  op_id_self  (); 

77  /e  determine  address  range  for  uniform  desination  assignment  */ 

78  op_ima_obj_attr_get  (my.id,  "low  dest  address" ,  tlos.dest.addr) ; 

78  op_i»a_ob j _attr_get  (my.id,  "high  dest  address",  khigh.dest.addr) ; 

80  /*  determine  object  id  of  connected  'mac'  layer  process  */ 

81  mac.objid  *  op.topo.assoc  (my.id,  OPC_TOPO_1SSOC_OUT, 

82  OPC.OB JKTYPE.MODULE , 

83  HAC_LAYER_OUT_STREAM) ; 

84  /*  determine  the  address  assigned  to  it  */ 

86  /e  which  is  also  the  address  of  this  station  */ 

86  op.ima_obj_attr_get  (mac.objid,  "station.address",  Jtstation.addr) ; 

87  /*  set  up  a  distribution  for  generation  of  addresses  */ 

88  dest.dist.ptr  *  op.dist.load  ( "uniform. int" ,  lov.dest.addr, 

88  high.dest.addr) ; 

80  /*  added  26DEC83  */ 

81  /*  determine  priority  range  for  uniform  traffic  generation  */ 

82  op_iaa_obj_attr_get  (my.id,  "high  pkt  priority”,  fchigh_pkt_priority) ; 

83  op_ima_ob j _attr_get  (my_id,  "lorn  pkt  priority",  tlov.pkt.priority) ; 

84  /*  set  up  a  distribution  for  generation  of  priorities  */ 

86  pkt.priority.ptr  *  op.dist.load  ( "uniform. int" ,  low.pkt .priority, 

86  high_pkt_priority) ; 

87  /*  above  added  26DEC93  */ 

88  /*  also  determine  the  arrival  rate  for  packet  generation  */ 

88  op.ima.obj _attr_get  (my .id,  "arrival  rate",  k arrival. rate) ; 

100  /*  determine  the  mix  of  asynchronous  and  synchronous  ♦/ 

101  /*  traffic.  This  is  expressed  as  the  proportion  of  */ 

102  /*  asynchronous  traffic,  i.s  a  value  of  1.0  indicates  */ 

103  /*  that  all  the  produced  traffic  shall  be  asynchronous.  */ 

104  op_iaa_obj_attr_get  (my.id,  "async.mix",  kasync.mix); 

106  /*  set  up  a  distribution  for  arrival  generations  */ 
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106 

107 

108 

109 

110  0.0); 


If  (arrival.rate  !«  0.0) 

/*  arrival*  are  exponentially  distributed ,  with  given  aean  */ 
intar.dist.ptr  «  op.dist.load  ("constant",  1.0  /  arrival_rate. 


111 

112 

113  8aean.pk.len); 


/*  determine  the  distribution  for  packet  size  */ 
op_ina_obj_attr_get  (my_id,  "aean  pk  length” , 


114 

115 


/*  set  up  corresponding  distribution  */ 

len_dist_ptr  ■  op.dist.load  ("constant”,  aean.pk.len,  0.0); 


116 

117 


/*  designate  the  tiae  of  first  arrival  */ 
fddi.gen.schedule  (); 


118 

119 

120 
121 
122 

123 

124 


126 


zfer)  */ 


> 


/*  set  up  an  interface  control  information  (ICI)  structure  */ 
/*  to  coaaunicate  parameters  to  the  aac  layer  process  */ 

/«  (it  is  more  efficient  to  set  one  up  nov  and  keep  it  */ 

/*  as  a  state  variable  than  to  allocate  one  on  each  packet 

aac.iciptr  *  op.ici.create  (”fddi.aac_req") ; 

> 


126  /**  blocking  after  enter  executives  of  unforced  state.  **/ 

127  FSH.EIIT  ( 1 , cp.f ddi.gen) 


128  /*•  state  (HIT)  exit  executives  **/ 

129  FSM_STATE_EXIT_UIF0RCED  (0,  stateO.exit.exec,  "IIIT”) 

130  { 

131  > 


132  /*•  state  (HIT)  transition  processing  ••/ 

133  FSM.TRAISIT.FORCE  (1,  statel.enter.exec,  ;) 

134  /♦ - */ 


135  /**  state  (ARRIVAL)  enter  executives  **/ 

136  FSN.STATE.BITER.UIFORCED  (1,  statel.enter.exec,  "ARRIVAL”) 

137  { 

138  /*  This  station  should  receive  fraaes  froa  the  other  lan  as  long  as  */ 

139  /*  there  are  fraaes  in  the  input  streaa*  addressed  to  this  lan  */ 

140  /echeck  if  the  'iterrupt  type  is  streaa  interrupt  *//*12APR94*/ 

141  if (op.intrpt .type ( )  «■  0PC.HTRPT.STRM) 

142  i 
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143 

144 
146 

146 

147 

148 

149 
160 
161 
162 

163 

164 
166 
166 

167 

168 
169 
160 
161 
162 

163 

164 
166 
166 

167 

168 

169 

170 

171 

172 

173 

174 
176 

176 

177 

178 

179 

180 
181 
182 

183 

184 
186 
186 

187 

188 

189 

190 

191 

192 

193 


/a  if  it  is,  g«t  the  packet  in  the  input  stream  canning  interrupt  a/ 
pkptrl  ■  op_pk_get(op_intrpt_stra()); 

/*  gat  the  destination  address  of  the  fraae  */ 

/a  16APR94  a/ 

op_pk_nfd_get (pkptrl ,  "dast_addr" ,  kdest.addr); 

/a  check  if  this  fraae  destined  for  the  local  bridge  station  */ 
if(dest_addr  **  station.addr) 

/a  if  it  is,  send  the  packet  to  llc.sink  directly  */ 

/a  in  order  to  prevent  overhead  of  aac  access  a/ 
op_pk_send(pkptr 1 , 

LLC.SIIK.OUT.STREAM) ;/al9APR94a/ 
else 

/a  this  packet  is  to  send  to  aac  a/ 

< 

/*  deteraine  the  source  address  of  the  fraae  a/ 
op_pk_nfd_get (pkptrl,  "src_addrM,  ksrc.addr); 

/a  set  up  an  ICI  structure  to  coaaunicate  paraaeters  to  a/ 

/a  MAC  layer  process  a/ 

mac.iciptrl  *  op_ici_create("fddi_aac_req") ; 

/a  place  the  original  source  address  into  the  ICI  a//* 

16APR94  a/ 

/a  "fddi_aac_reqH  is  aodified  so  that  it  contains  the  original 

*/ 

/a  source  address  froa  the  remote  lan  a/ 
op_ici_attr_set (mac.iciptrl,  Msrc_addr",  src.addr) ; 

/a  place  the  destination  address  into  the  ICI  a/ 

/•12APR94*/ 

op_ici_attr_set(aac_iciptrl,  "dest.addr".  dest.addr); 

/a  assign  the  service  class  and  requested  token  class  a/ 

/a  At  this  aoment  the  frames  coming  froa  the  reaote  lan 

are  assuaed  to  havea/ 

/*  the  same  priority  as  synchronous  frames  in  order  not  to 

accumulate  */ 

/a  packets  on  the  bridge  station  aac  and  instead  to  deliver 

their  destinations  a/ 

/a  as  soon  as  possible  •/ 
op.pk_nfd.set (pkptrl,  "pri",  8); 
op_ici_attr_set(aac_iciptrl,  "svc.class" , 

FDDI.SVC.SY1C) ; 

op.ici_attr_set(aac_iciptrl,  "pri",  8); 
op_ici_attr_set(mac_iciptrl,  "tk.class", 

FDDI.TK.IOIRESTRICTED ) ; 

/*  send  the  packet  coupled  vith  the  ICI  */ 

op_ici_install(mac_iciptrl) ; 

op_pk_send (pkptrl ,  MAC.LAYER.OUT.STREAM) ; 

> 

} 

/*  otherwise,  generate  the  fraae  :12APR94  a/ 

else 

/•  deteraine  the  length  of  the  packet  to  be  generated  a/ 
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194 


pklen  =  op.dist .outcome  (lan.dist.ptr) ; 


195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 


/*  determine  tha  destination  */ 

/*  dost  allow  this  station's  addrsss  as  a  possibls  outcome  a/ 
gen.packet : 

dest.addr  =■  op.dist. out cone  (dest.dist.ptr) ; 
if  (dest.addr  !■  -1  kk  dast_addr  *«  station.addr) 
goto  gen_packet; 

/a  26DEC94  k  29JAI94:  determine  its  priority  */ 
pkt.prio  s  op_dist_outcona  (pkt_priority_ptr) ; 

/*  crsats  a  packet  to  sand  to  aac  */ 
pkptr  *  op.pk. croat e.f at  (Middi_llc_fr") ; 

/*  assign  its  overall  size.  */ 
op_pk.total_size.set  (pkptr,  pklon); 


207 

208 


/*  assign  the  tins  of  creation  */ 
op_pk.nfd.set  (pkptr,  "cr.tiae”,  op.sia.tiae  ()); 


209  /*  place  the  destination  address  into  the  ICI  */ 

210  /*  (the  protocol.type  field  sill  default)  a/ 

211  op.ici_attr.set  (aac.iciptr,  "dest.addr",  dest.addr); 


212  /a  place  the  source  address  into  the  ICI  *//*  17APR94*/ 

213  op.ici.attr.set  (aac.iciptr,  "src.addr",  station.addr) ; 


214 

215 

216 

217 

218 

219 

220 

221  FDDI.SVC.ASYIC) ; 

222 

223 

224 
226 
226 

227  FDDI.SVC.SYIC) ; 

228 
229 


/*  assign  the  priority,  and  requested  token  class  a/ 

/*  also  assign  the  service  class;  29JAI94:  the  fddi_llc.fr  a/ 
/a  format  is  modified  to  include  a  "pri"  field.  a/ 

it  (op.dist.unifora  (1.0)  <*  async.aix) 

i 

op_pk.nfd.set  (pkptr,  "pri",  pkt.prio);  /a  29JAI94  a/ 
op.ici.attr.set  (aac.iciptr,  nsvc_classH, 

op.ici.attr.set  (aac.iciptr,  "pri",  pkt.prio);  /a  29JAI94  a/ 

> 

else-C 

op.pk.nfd.set  (pkptr,  "pri",  8);  /*  29JAI94  */ 

op.ici.attr.set  (aac.iciptr,  "svc.class" , 

op.ici.attr.set  (aac.iciptr,  "pri",  8);  /*  29JAV94  */ 

> 


230  /a  Request  only  nonrestricted  tokens  after  transmission  a/ 

231  op.ici.attr.set  (aac.iciptr,  "tk. class'* , 

232  FDDI.TK.IOIRESTRICTED) ; 


233  /a  Having  determined  priority,  assign  it;  26DEC93  a/ 

234  /a  op_ici.attr.set  (aac.iciptr,  "pri",  pkt.prio);  a/ 
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235 

236 

237 

238 

239 

240 

241  /*18APR94*/ 

242 

243 

244  */ 

245 


/*  send  the  packet  coupled  with  the  ICI  */ 
op.ici. install  (aac.iciptr) ; 

/*  check  if  destination  address  is  in  the  remote  lan  */ 
if(dest_addr  >  9) 

/*  if  it  is,  this  packet  is  to  send  llc.sink  directly  */ 
op.pk.send  (pkptr,  LLC.SIIK.OUT.STREAH) ; 


else 

/*  if  not,  the  packet  is  destined  for  local  lan,  so  send  to  aac 
op.pk.send  (pkptr,  KAC.LAYER.OUT.STREAK) ; 


248 

247 

248 

249 


/*  schedule  the  next  arrival  */ 
fddi.gen. schedule  (); 

} 

} 


250  /**  blocking  after  enter  executives  of  unforced  state.  **/ 

251  FSM.EXIT  (3,cp_fddi_gen) 


252  /**  state  (ARRIVAL)  exit  executives  **/ 

263  FSM.STATE.EXIT.UIFORCED  (1,  state l.exit.exec ,  ••ARRIVAL") 

254  { 

255  > 


256  /**  state  (ARRIVAL)  transition  processing  **/ 

257  FSM_TRAISIT_FORCE  (1,  statel.enter.exec,  ;) 

258  /* - ♦/ 


269  > 

260  FSH.EXIT  (O.cp.fddi.gen) 

261  > 


262  void 

263  cp.f ddi_gen_svar  (prs_ptr,var_naae,var_p_ptr) 

264  cp_fddi_gen_state  *prs_ptr; 

266  char  evar.name,  **var_p_ptr ; 

266  { 

267  FI*  (cp.fddi_gen.svar  (prs.ptr)) 
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268  *var_p_ptr  «  VOS.IIL; 

269  il  (Vo»_String_Equal  ("inter.dist.ptr"  ,  var .name)) 

270  ♦ var.p.ptr  «  (char  *)  (Jtpr«.ptr->ev_inter_diet_ptr) ; 

271  if  (Vos_String.Equal  ("len.diet.ptr"  ,  var.name)) 

272  evar.p.ptr  *  (char  ♦)  (*pre_ptr->ev_len_dist_ptr) ; 

273  if  (Vos_String_Equal  ("deet.diet.ptr"  ,  var.name)) 

274  evar.p.ptr  =  (char  ♦)  (kpr«_ptr->*v_deet_diet_ptr) ; 

275  it  (Voe_String_Eqnal  ( "pkt .prior ity_ptr"  ,  var.name)) 

276  evar.p.ptr  =  (char  *)  (fcpre_ptr->sv_pkt_priority_ptr) ; 

277  it  (Voe.String.Equal  ("mac.objid"  ,  var .name)) 

278  evar.p.ptr  *  (char  *)  (kprs_ptr->»v_mac_objid) ; 

279  il  (Voe_String_Equal  (''■y.id"  ,  var  .name)) 

280  evar.p.ptr  *  (char  ♦)  (kpre_ptr->ev_ay_id) ; 

281  il  (Voe_String_Equal  ("loB.deet.addr"  ,  var .name)) 

282  evar.p.ptr  *  (char  *)  (*pra_ptr->ev_lo»_deet_addr) ; 

283  il  (Voe_String_Equal  ("high.deet.addr"  ,  var .name)) 

284  evar.p.ptr  *  (char  *)  (*pra_ptr->ev_high_deet_addr) ; 

285  il  (Voe_String_Equal  ("atation.addr"  ,  var .name)) 

286  *var_p_ptr  =  (char  *)  (kpra_ptr->ev_Btation_addr) ; 

287  il  (Voa_String_Equal  ("src.addr*'  ,  var .name)) 

288  evar.p.ptr  =  (char  *)  (kpre_ptr->BV_arc_addr) ; 

289  il  (Vos_String_Equal  ("lov.pkt .priority"  ,  var .name)) 

290  *var_p_ptr  *  (char  *)  (kpr*_ptr->ev_low_pkt .priority) ; 

291  it  (Vos_String_Equal  ("high.pkt .priority"  ,  var.name)) 

292  *var_p_ptr  *  (char  *)  (Jtpr*_ptr->ev_high_pkt .priority) ; 

293  il  (Vos_String_Equal  ("arrival.rate"  ,  var.name)) 

294  *»«r_p_ptr  *  (char  *)  (8pre.ptr->ev.arrival_rate) ; 

296  il  (Vos_String_Eqnal  ("mean.pk.len"  ,  var .name)) 

296  ♦var.p.ptr  «  (char  ♦)  (*pre_ptr->ev_mean_pk_len) ; 

297  il  (Vos.String.Eqnal  ("aeync.mix"  ,  var.name)) 

298  ♦var.p.ptr  =  (char  *)  (*pra_ptr->ev_aaync_«ix) ; 

299  il  (Voe.String.Equal  ("mac.iciptr"  ,  var.name)) 

300  evar.p.ptr  =  (char  ♦)  (*pre_ptr->av_mac_iciptr) ; 

301  il  (Vos.StringJSqnal  ("mac.iciptrl"  ,  var.name)) 

302  *var_p_ptr  *  (char  ♦)  (*pre_ptr->ev_mac_iciptrl) ; 

303  il  (Voe_String_Eqoal  ("lle.ici.ptr"  ,  var .name)) 

304  *var_p_ptr  ■  (char  ♦)  (*pre_ptr->ev_llc_ici_ptr) ; 

306  il  (Voe_String_Equal  ("pkptrl"  ,  var.name)) 

306  ♦var.p.ptr  «  (char  ♦)  (*pre_ptr->ev_pkptrl) ; 

307  FOOT; 

308  > 


309  void 

310  cp_lddi_gen_diag  () 

311  { 

312  Packet  *pkptr ; 
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w? 


pupspni 


313 

int 

pklea; 

314 

iat 

dest.addr; 

316 

iat 

i,  restricted; 

316 

iat 

pkt.prio ; 

317 

FII  (cp_fddi_gea_diag  ()) 

318 

FOOT; 

319 

> 

320 

void 

321 

cp_fddi_gea_teniaate  () 

322 

< 

323 

Packet 

epkptr; 

324 

iat 

pklea; 

326 

iat 

dest.addr ; 

328 

iat 

i,  restricted; 

327 

iat 

pkt_prio; 

328 

FII  (cp_fddi_gea_termiaate  ()) 

329 

FOOT; 

330 

> 

331  Coepcode 

332  cp_fddi_gen_init  (pr.state.pptr) 

333  cp_fddi_gen_*tate  **pr_state_pptr; 

334  { 

336  static  VosT.Ca.Obtype  obtype  <*  OPC.IIL; 

336  FII  (cp_fddi_gen_iait  (pr.state.pptr)) 

337  if  (obtype  ««  OPC.IIL) 

338  { 

331  if  (Vos_Cataea_Regii ter  ("proc  state  vars  (cp.fddi.gen)", 

340  sizeof  (cp_fddi_gea_scate) ,  Voe.Iop,  tobtype)  ==  VOSC.FAILURE) 

341  FRET  (0PC.C0MPC0DE.FAILURE) 

342  > 

343  if  ((epr.state.pptr  =  (cp.fddi.gea.state*)  Vos.Catmea. Alloc  (obtype,  1))  « 

344  OPC.IIL) 

346  FRET  (OPC.COKPCODE.FAILURE) 

346  else 

347  { 
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348  ( *pr_a tat e_pptr)->curr eat .block  •  0; 

349  FRET  (0PC.C0MPC00E.SUCCESS) 

3E0  > 

361  > 


362  /*  static  added  2DEC93,  on  advice  from  MIL3  */ 

363  static 

364  iddi_gen_schedule  () 

366  { 

356  doable  inter. tine; 

357  /*  obtain  an  interarrival  period  according  to  tbe  */ 

358  /*  prescribed  distribution  •/ 

369  inter.tiae  *  op.dist.outcoae  (inter_dist_ptr); 

360  /*  schedule  the  arrival  of  next  generated  packet  */ 

361  op. intrpt .schedule. sell  (op_sia_tiae  ()  ♦  inter .tine,  0); 

362  } 
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APPENDIX  B 

CPNI  MAC  “C”  CODE 

“cp_fddi_mac.pr.c” 


The  line  numbering  in  this  appendix  is  within  this  thesis  only,  and  does  not  corre¬ 
spond  with  that  seen  in  OPNET’s  text  editors. 

1  /•  Process  aodsl  C  fora  Ills:  cp_fddi_aac.pr.c  */ 

2  /*  Portions  of  this  fils  Copyright  (C)  NIL  3,  Inc.  1902  */ 


3  /*  OPIET  systsa  definitions  */ 

4  # include  <opnet.h> 

5  # include  ,,cp_fddi_aac.pr .h” 

6  FSH_EXT_DECS 


7  /*  Bender  block  */ 

8  /*  Define  n  tiaer  structure  used  to  iapleaent  •/ 

9  /•  the  TBT  and  THT  tiaers.  The  primitives  defined  to  */ 

10  /*  operate  on  these  tiaers  can  be  found  in  the  */ 

11  /•  function  block  of  this  process  aodel.  •/ 

12  typedef  struct 

13  { 

14  int  enabled; 

16  double  start.tiae; 

16  double  accua; 

17  double  target.accna; 

18  >  FddiT.Tiaer; 


19  /*  Declare  certain  priaitires  dealing  uith  tiaer. s  */ 

20  double  fddi.tiaer .remaining  (); 

21  FddiT.Tiaer*  fddi.tiaer.create  (); 

22  double  fddi.tiaer.velue  (); 

23  /*  Scratch  strings  for  trace  statements  */ 

24  char  strO  [612] ,  strl  [612] ; 


26  /•  define  constants  particular  to  this  iapleaentation  */ 

26  Sdefine  FDDI  JUX.STATI01S  612 

27  /e  define  possible  values  for  the  fraae  control  field  •/ 

28  fdefine  FDDI.FC.FRAME  0 
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29  tdefine  FDDI_FC_TOKEI  1 


30  /*  define  possible  service  classes  for  frues  */ 

31  tdefine  FDDI_SVC_ASYIC  0 

32  tdefine  FDDI_SVC_SYIC  1 

33  /*  define  input  stream  indices  */ 

34  tdefine  FDDI_LLC_STRN_II  1 

36  tdefine  FDDI_PHY_STRN_II  0 

38  /*  define  output  strean  indices  */ 

37  tdefine  FDDX_LLC_STKN_01}T  1 

38  tdefine  FDDX.PHT_STKN.OUT  0 

39  /*  define  token  classes  */ 

40  tdefine  FDDX.TK.IOIKESTKICTED  0 

41  tdefine  FDDI.TK.RESTRICTED  1 

42  /♦  King  Constants  •/ 

43  tdefine  FDDI.TX.RATE  1.0# +08 

44  tdefine  FDDI.SA.SCAI.TINE  28.0e-08 

46  /•  Token  transmission  time:  based  on  6  symbols  plus  16  symbols  of  preamble  */ 
46  tdefine  FDDIC_T0KEH_TX_TINE  88.0e-08 


47  /•  Codes  used  to  differentiate  remote  interrupts  */ 

48  tdefine  FDDIC.TRT .EXPIRE  0 

49  tdefine  FDDIC.TK.IIJECT  1 


60  /*  Define  symbolic  expressions  used  on  transition  */ 

61  /*  conditions  and  in  executive  statements.  */ 

62  tdefine  TKT.EXPXRE  \ 

63  (op.intrpt.type  ()  »  0PC.XITRPT.REN0TE  U  op.intrpt.code  ()  **  FDDIC_TRT_EXPIRE) 

64  tdefine  TK.KECEXVED  \ 

66  pby.arrival  U  \ 

68  frame.control  ■»  FDDI.FC.TOKEV 

67  tdefine  RC.FRAKE  \ 

68  pby.arrival  U  \ 

69  frame.control  »»  FDDZ.FC.FRANE 

60  tdefine  F&ANE. ARRIVAL  \ 

61  op.intrpt.type  ()  ■«  OPC.IITRPT.STRN  M  \ 

62  op.intrpt.strm  ()  “  FDDI_LLC_STKM.il 

63  tdefine  STRIP  my.address  ■■  src.addr 

64  /•  Define  the  maximum  value  for  ring_id.  This  is  tbe  */ 
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66  /*  maxima  nuab«r  el  FDD!  rings  that  can  exist  in  a  */ 

66  /*  s isolation,  lots  that  il  this  nnnbsr  is  changed,  */ 

67  /*  the  initialization  lor  lddi_claim_start  belos  nost  */ 

68  /*  also  be  modified  accordingly.  */ 

69  Moline  FDDI.MAX.RIIG.ID  8 

70  /*  Declare  the  operative  TTRT  value  ' T_0pr *  which  is  the  linal  */ 

71  /*  negotiated  value  ol  TTRT.  This  value  is  shared  by  all  stations  */ 

72  /*  on  a  ring  so  that  all  agree  on  its  value.  */ 

73  double  lddi_t_opr  [FDDI.MAX_RIIG.ID] ; 

74  Meline  Fddi.T.Opr  (Iddi.t.opr  [ring. id] ) 

76  /*  This  llag  indicates  that  the  negotiation  1 or  the  linal  TTRT  */ 

76  /*  has  not  yet  begun.  It  is  statically  initialized  here,  and  */ 

77  /*  is  reset  by  the  lirst  station  shich  aodilies  T.Opr .  */ 

78  /*  Initialize  to  1  lor  all  rings.*/ 

79  static 

80  int  Iddi.claia.start  [FDDI_MAX.RIIG_ID3  ■  {1,1, 1,1, 1.1, 1,1}; 

81  Meline  Fddi_Claim.Start  (fddi.claim.start  [ring. id] ) 


82  /*  Declare  station  latency  paraneters.  */ 

83  /«  These  are  true  globals,  so  they  do  not  need  to  be  arrays.  */ 

84  double  Fddi.St .Latency; 

86  double  Fddi_Prop_Delay; 

86  /*  Declare  globals  lor  Token  Acceleration  Mechanism.  */ 

87  /*  Hop  delay  and  token  acceleration  are  true  globals.  •/ 

88  double  Fddi.Tk.Hop.Delay ; 

89  static 

90  int  Fddi.Tk.Accelerate  =  1; 

91  /*  These  are  actually  values  shared  by  all  nodes  on  a  ring,  */ 

92  /•  so  they  must  be  delined  as  arrays.  */ 

93  double  lddi_tk_block.base.time  [FDDI.MAX.RIIG.ID] ; 

94  Meline  Fddi.Tk_Block_Base.Time  (lddi.tk_block_base.tiae  [ring. id]) 

95  int  lddi.tk_block_base.stat ion  [FDDI.MAX.RIIG.ID] ; 

96  Meline  Fddi_Tk_Block_Base_Station  (Iddi.tk.block.base.station  [ring. id]) 

97  int  lddi_tk_blocked  [FDDI.MAX.RIIG.ID]; 

98  Meline  Fddi.Tk.Blocked  (Iddi.tk.blocked  [ring.id]) 

99  int  lddi^iua.stations  [FDDI_MAX.RIIG.ID] ; 

100  Meline  Fddi_lum_Stations  (lddi.num.stat ions  [ring_id]) 

101  int  lddijnum_registered  [FDDI.MAX.RIIG.ID]; 

102  Meline  Fddi_lum.Registered  (lddi_num_registered  [ring_id]) 

103  Objid  Iddi.address.table  [FDDI.MAX.RIIG.ID] [FDDI.MAX.STATIOIS] ; 

104  Meline  Fddi.Address.Table  (Iddi.address.table  [ring_id]) 
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10S  /•  Below  is  part  of  the  OPBUG  2081  patch;  FB  ended  hara.  before .  -liz  */ 

108  /*  Event  handles  for  the  TUT  are  aaintained  at  a  global  level  to  */ 

107  /*  alios  token  acceleration  aechanisa  to  adjust  these  as  necessary  */ 

108  /*  when  blocking  and  reinjecting  the  token.  TRT_handle  siaply  */ 

109  /*  represents  the  TUT  for  the  local  NIC  */ 

110  Evhandle  fddi.trt .handle  [FDDI.MAX.RIIG.ID] [FDDI.MAX.STATIOIS] ; 

111  fdefine  Fddi.Trt.Handle  (fddi.trt .handle  (ring. id] ) 

112  fdefine  TRT.handle  Fddi.Trt.Handle  [By.address] 

113  /*  Siailarly,  the  T&T  data  structure  is  aaintained  on  a  global  level.  */ 

114  FddiT.Tiaer*  fddi.trt  (FDDI_MAX.RIIC.ID3  [FDDI.MAX.STAT10IS3 ; 

115  fdefine  Fddi.Trt  (fddi.trt  (ring_id3) 

115  fdefine  TRT  Fddi.Trt  (ay.addressj 

116  /*  Registers  to  record  the  expiration  tine  of  each  TRT  vhen  token  is  blocked.  */ 

117  double  fddi.trt.exp.tine  [FDDI.MAX.RIIG.ID]  (FDDI.MAX.STATIOIS] ; 

118  fdefine  Fddi.Trt.Exp.Time  (fddi.trt.erp.tiae  (ring.id]) 

119  /*  ths  'Lats.Ct*  flag  is  declared  on  a  global  level  so  that  it  can  be  */ 

120  /*  set  at  the  tia  evhere  the  token  is  injected  back  into  the  ring.  */ 

121  int  fddi.late.ct  [FDDI.MAX.RIIG.ID]  [FDDI.MAX.STATIOIS]; 

122  fdefine  Fddi.Late_Ct  (fddi.late.ct  [ring.id]) 

123  fdefine  Late.Ct  Fddi.Late.Ct  [ay.address] 


124  /*  Convenient  aacro  for  setting  TRT  for  a  given  station  and  absolute  tiae.  */ 

125  fdefine  TRT_SET(station_id,abs_tiae)  \ 

126  fddi.tiaer.set  (Fddi.Trt  [station.id] ,  abs.tiae  -  op.sia.tiaeO) ;  \ 

127  Fddi.Trt.Handle  [station.id]  *  op.intrpt.schedule.reaote  (abs.tiae,  \ 

128  FDDIC.TRT.EXPIRE ,  Fddi.Address.Table  [station.id]); 


129  /*  State  variable  definitions  */ 

130  typedef  struct 


131  { 

132  FSM.SYS.STATE 

133  int 

134  FddiT.Tiaer* 

135  double 

136  double 

137  Objid 

138  int 

139  int 

140  int 


sv.ring.id; 
sv.THT ; 
sv.T.Req; 
av.T.Pri  [8]; 
av_ay_objid; 
sv.spavn.token; 
svjiy .address; 
sv.or ig.src.addr ; 
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141  Packet* 

ST.tk.pkptr ; 

142  double 

sv.sync.bandwidth ; 

143  double 

sT_sync_pc; 

144  int 

svjrestricted; 

146  int 

ST_res_peer; 

140  int 

ST.tk.registered ; 

147  Ici* 

s v_to_llc_ici_ptr ; 

148  int 

s v.tk.trace.on ; 

149  >  cp.iddi.nac.state ; 

150  Adeline 

pr_state_ptr 

( (cp_lddi_nac_state*)  Sinl.Mod.State.Ptr) 

161  tdeline 

ring_id 

pr_state_ptr->sv_ring_id 

162  tdeline 

THT 

pr_state_ptr->ST_THT 

153  Adeline 

T.Req 

pr_state_ptr->sv_T_Req 

164  Adeline 

T.Pri 

pr_state_ptr->sr_T_Pri 

166  Adeline 

ay.objid 

pr_state_ptr~>sT_ny_obj id 

150  Adeline 

spawn. token 

pr_state_ptr->sT_spaim_token 

167  Adeline 

*y  .address 

pr_state_ptr->sv_ay_ address 

168  Adeline 

orig.src.addr 

pr_state_ptr->sv_orig_src_addr 

159  Adeline 

tk.pkptr 

pr_state_ptr->sv_tk_pkptr 

100  Adeline 

sync.banduidth 

pr.stat e_ptr->sv_sync_bandvidth 

101  Adeline 

sync.pc 

pr_state_ptr->ST_sync_pc 

102  Adeline 

restricted 

pr_state_ptr->sv_restricted 

103  Adeline 

res_peer 

pr.stat e_ptr->sv_res_peer 

104Adeline  tk_registered 

pr _st at  e_ptr->s y.tk.r egist er ed 

105  Adeline 

to.llc.ici.ptr 

pr_state_ptr->sT_to_llc_ici_ptr 

100  Adeline 

tk.trace.on 

pr_state_ptr->sr_tk_trace_on 

107  /*  Process  nodel  interrupt  handling  procedure  */ 


108  void 

109  cp_fddi_nac  () 

170  { 

171  /*  Packets  and  ICI's  */ 

172  Packet*  ■ac.lraae.ptr ; 

173  Packet*  pdu_ptr; 

174  Packet*  pkptr; 

176  Packet*  data_pkptr; 

170  lei*  ici_ptr; 

177  /*  Packet  Fields  and  Attributes  */ 

178  int  req.pri ,  svc.class,  req.tk.claas ; 

179  int  1 raae.control ,  src.addr,  dest.addr; 

180  int  pk.len,  pri.level; 

181  /•  Token  -  Related  */ 
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182  int  tk.usabls,  reinstation,  tk_dass; 

163  int  current.tk.class ; 

184  double  accua_sync; 

185  /♦  Timer  -  Related  */ 

186  doubli  tx.tiae,  timer .remaining,  accum_bandvidth; 

187  double  tht.value; 

188  /*  Miscellaneous  •/ 

189  int  i; 

190  int  spasn.station,  phy .arrival; 

191  char  error.string  (512] ; 

192  int  nua_fraaes_sent,  num.bits.sent; 

193  /e  26DBC93:  loop  management  variables,  used  in  RCV.TX  */ 

194  /*  and  BICAP  states,  -fix  */ 

195  int  IUM.PRI0S; 

196  int  punt ; 

197  int  q_check; 


198  FSH.E1TER  (cp_iddi_nac) 

199  FSM_BL0CK_ SWITCH 

200  { 

201  /e - - 

202  /*•  state  (HIT)  enter  executives  **/ 

203  FSM_STATE_EITER_FORCED  (0,  stateO.enter.exec ,  "HIT”) 

204  { 

205  /*  Obtain  the  station's  address  .  This  is  an  attribute  */ 

206  /*  of  this  process.  Addressing  is  simplified  by  */ 

207  /e  simply  using  integers,  and  only  one  mode.  */ 

208  /*  This  mode  is  16  bit  addressing  unless  the  */ 

209  /*  packet  lonat  ,fddi_*ac_lr ’  is  modified.  */ 

210  my.objid  •  op_id_self();  /*  29DEC93  */ 

211  op_ima_obj_attr_get  (my.objid,  Hstation_address",  Amy .address) ; 

212  /*  Register  the  station's  object  id  in  a  global  table.  */ 

213  /*  This  table  is  used  by  the  mechanism  which  improves  */ 

214  /•  simulation  efficiency  by  'jumping  over*  idle  periods  */ 

215  /*  rather  than  circulating  an  unusable  token.  */ 

216  fddi.station_register  (my.address,  my.objid); 


217  /*  Obtain  the  station  latency  for  tokens  and  frames.  */ 

218  /*  Default  value  is  set  at  100  nanoseconds.  */ 

219  Fddi_St_Latency  >  100.0e-09; 

220  op.ima_sia_attr.get  (OPC.IMA.DOUBLE,  "station.latency",  AFddi.St.Latency) ; 
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221  /•  Obtain  the  propagation  delay  separating  stations.  *t 

222  /•  This  value  is  given  in  seconds  with  default  value  3.3  Microseconds .  */ 

223  Fddi_Prop_Delay  *  3.3e-06; 

224  op_i*a_si*_attr_get  (0PC.IMA.D0UBLB,  "prop.delay" ,  *Fddi_Prop_Delay) ; 

226  /*  Derive  the  Delay  for  a  'hop'  of  a  freely  circulating  packet.  */ 

226  Fddi_Tk_Bop_Delay  *  Fddi_Prop_Delay  +  Fddi_St_Latency; 


227  /•  The  T_Pri  □  state  variable  array  supports  priority  */ 

228  /*  assignments  on  a  station  by  station  basis  by  */ 

229  /•  establishing  a  correspondence  between  integer  priority  */ 

230  /•  levels  assigned  to  frames  and  the  maximum  values  of  the  */ 

231  /*  token  holding  timer  (TBT)  which  would  allow  packets  to  be  */ 

232  /•  sent.  Eight  levels  are  supported  here,  but  this  can  easily  */ 

233  /•  be  changed  by  redimensioning  the  priority  array.  */ 

234  /*  By  default  all  levels  are  identical  here,  allowing  */ 

236  /•  any  frame  to  make  use  of  the  token,  so  that  in  fact  */ 

236  /*  priority  levels  are  not  used  in  the  default  case.  */ 

237  /*  01JAI94:  (8-i)  is  a  quick  attempt  to  impart  different  weighting  */ 

238  /*  scales  on  each  priority  level,  and  is  not  necessarily  realistic. -lix  */ 

239  /*  Be  aware  of  integer-double  arithmetic  conflicts  ie,  1/8  -  0.  -lix  */ 

240  op_ina_obj_attr_get(my_objid,  “T.Req" ,  AT.Req) ; 

241  for  (i  *  0;  i  <  8;  i++) 

242  { 

243  T.Pri [i]  «  ((doubleKi  ♦  1.0) /8.0)  *  FddiJT.Opr; 

244  /*  printf ("MAC  HIT:  T.PriCXd]  is  %lf;  */ 

246  /*  Fddi_T_0pr  is  y.lf \n" ,  i.  T.PriCi),  Fddi.T.Opr) ;  */ 

246  } 


247  /*  Create  the  token  holding  timer  (TBT)  used  to  restrict  the  */ 

248  /*  asynchronous  bandwidth  consumption  of  the  station  */ 

249  TBT  *  fddi_timor_ create  (); 

260  /*  Create  the  token  rotation  timer  (TBT)  used  to  measure  the  */ 

261  /*  rotations  of  the  token,  detect  late  tokens  and  initialize  */ 

262  /*  the  TBT  timer  before  asynchronous  transmissions.  */ 

263  TBT  *  fddi_timer_create  (); 

264  /*  Set  the  TBT  timer  to  expire  in  one  TTRT  */ 

266  TRT.SET  (my.address,  op.sim.time  ()  ♦  Fddi.T.Opr); 

266 

267  /*  Initialize  the  Late.Ct  variable  which  keeps  track.  */ 

268  /*  of  the  number  of  TRT  expirations.  •/ 

269  Late.Ct  =  0; 

260  /*  initially  the  ring  operates  in  nonrestricted  node  */ 

261  restricted  *  0; 


262  /*  Create  an  Interlace  Control  Inlormation  structure  */ 

263  /*  to  nee  shea  delivering  received  Irenes  to  the  LLC.  */ 

264  to_llc.ici.ptr  *  op.ici.create  ("lddi_aac_ind"); 

266  /*  The  *tk_registered’  variable  indicates  il  the  station  */ 

266  /•  has  registered  its  intent  to  use  the  token.  */ 

267  tk_registered  «  0; 


268  /•  Determine  il  the  model  is  to  make  use  ol  the  token  •/ 

269  /*  'acceleration*  mechanism.  XI  not,  every  passing  ol  the  •/ 

270  /*  token  mill  be  ezplicityly  modeled,  leading  to  large  */ 

271  /*  number  ol  events  being  scheduled  uhen  the  ring  is  idle  */ 

272  /*  (i.e,  no  stations  have  data  to  send).  */ 

273  op_ima.sim_attr.get  (OPC.XMA.XITEGER,  Maccelerate_tokenM , 

274  *Fddi_Tk_Accelerate) ; 


275  /*  Obtain  the  synchronous  bandvidth  assigned  */ 

276  /*  to  this  station.  It  is  expressed  as  a  */ 

277  /*  percentage  ol  TTRT,  and  then  converted  to  seconds  */ 

278  op_ima_obj_attr_get  (my.objid,  "sync  bandvidth",  Async.pc); 

279  sync.bandsidth  *  aync.pc  •  Fddi.T.Opr; 


280  /*  Only  one  station  in  the  ring  is  selected  to  •/ 

281  /*  introduce  the  lirst  token.  Test  il  this  station  is  it.  */ 

282  /•  Il  so,  set  the  *spasn_token'  Hag.  */ 

283  /*  op_ima_sim_attr_get  (OPC.INA.IITEGER,  "spawn  station",  ftspavn.station) ;  */ 

284  /*  spasn_token  =  (spawn. it at ion  **  ay .address);  */ 

285  /*  Il  the  station  is  to  spawn  the  token,  create  */ 

286  /*  the  packet  which  represents  the  token.  */ 

287  /*  14APH94  :the  bridges  sill  spawn  token  in  both  rings  */ 

288  /*  -Karayakaylar  */ 

289  spasn.token  *1; 

290  il  (spavn_token) 

291  < 

292  tk_pkptr  *  op.pk.create.lmt  ("Iddi.mac.tk"); 

293  /*  assign  its  Irame  control  lield  */ 

294  op.pk_nld.set  (tk_pkptr,  "1c",  FDDI.FC.TOKEI) ; 

296  /*  the  lirst  token  issued  is  non-restricted  */ 

296  op.pk_nld.set  (tk_pkptr,  "class",  FDDI.TK.IOIRESTRICTED) ; 

297  /*  The  transition  sill  be  made  into  the  ISSU.TK  */ 

298  /•  state  where  the  tk_usable  variable  is  used.  */ 

299  /e  In  case  any  data  has  been  generated,  prset  */ 

300  /*  this  variable  to  one.  */ 
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SOI  tk_usable  •  1; 
302  > 


303  /*  Whan  sending  packets  the  variable  accum_bandsidth  is  */ 

304  /*  used  as  a  scheduling  base.  I nit  this  value  to  zero.  */ 

305  /•  This  stateaent  is  required  in  case  this  is  the  spawning  */ 

306  /*  station,  and  the  next  state  entered  is  ISSUE. TK  */ 

307  accum.bandwidth  >0.0; 


308  > 


309  /**  state  (HIT)  exit  executives  **/ 

310  FSH.STATE.EXIT.FORCED  (0,  stateO.exit.exec,  "HIT") 

311  { 

312  > 


313  /**  state  (IIIT)  transition  processing  **/ 

314  FSM.Iirr.COID  (spavn.token) 

315  FSHJJFLT.COID 

316  FSH_TEST.LOG IC  ("HIT") 

317  FSM.TRAISIT. SWITCH 

318  < 

319  FSM.C1SE.TRAISIT  (0,  2,  state2.enter.exec,  ;) 

320  FSK.CASE.TRAISIT  (1.  1.  statel.enter.exec,  ;) 

321  > 


323  /**  state  (IDLE)  enter  executives  *•/ 

324  FSH.STATE.EITER.UKFORCED  (1,  statel.enter.exec.  HIDLEH) 

325  ( 

326  > 


327  /•*  blocking  alter  enter  executives  of  unforced  state.  ♦♦/ 

328  FSH.EXIT  (3,cp.fddi_nac) 


329  /•*  etate  (IDLE)  exit  executives  **/ 

330  FSM.STATE.EX IT.UIFORCED  (1,  statel.exit.exec,  "IDLE") 

331  { 

332  /•  Determine  it  a  trace  is  activated  for  the  FDD I  model  */ 

333  tk.trace.on  ■  op_prg_odb_ltrace_active  ("fddi_tkM); 
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334  /•  Trap  packets  arriving  iron  physical  layer  so  that  their  */ 

335  /*  FC  field  can  be  extracted  before  evaluating  conditions  */ 

336  if  (op_intrpt_type  ()  ■■  OPC.IITRPT.STRM  kk  op_intrpt_stm  ()  !=  FDDI_LLC_STRM_II) 

337  < 

338  /•  Acquire  the  arriving  packet.  */ 

338  pkptr  «  op_pk_get  (FDDI.PHY.STRM.II) ; 

340  /*  Determine  the  type  of  packet  by  extracting  */ 

341  /*  the  fraae  control  field.  */ 

342  op_pk_nfd_get  (pkptr,  "fc",  Aframe.control) ; 

343  /*  Physical  layer  arrival  flag  is  set.  */ 

344  phy.arrival  *  l ; 

345  > 

346  else{ 

347  /*  The  interrupt  is  not  due  to  a  physical  layer  arrival.  */ 

348  phy.arrival  *  0; 

349  /*  If  the  interrupt  is  a  remote  interrupt  with  specified  code,  it  signifies  */ 

350  /*  the  reinsertion  of  the  token  into  the  ring  after  an  idle  period.  This  only  */ 

351  /*  occurs  if  the  coken  acceleration  mechanism  is  active.  */ 

352  if  (op_intrpt_type  ()  «=  OPC.IITRPT.REMOTE  kk  op.intrpt.code  ()  ==  FDD1C_TK_I«JECT) 

363  { 

364  /*  create  a  new  token  */ 

356  tk.pkptr  *  op_pk_create_fmt  ("fddi_mac_tkM) ; 

356  /*  assign  its  frame  control  field  */ 

367  op_pk_nfd_set  (tk_pkptr,  "fc",  FDDI.FC.TOKE*) ; 

358  /•  the  token  is  non-restricted  */ 

359  op_pk_nfd_set  (tk_pkptr,  "class",  FDDI_TK_IO«RESTRICTED) ; 

360  /*  insert  it  into  the  ring  */ 

361  op.pk.send  (tk.pkptr,  FDDI_PHY_STRK_OUT) ; 

362  > 

363  } 


} 


364  /**  state  (IDLE)  transition  processing  **/ 
366  FSN_1I1T_C0ID  (TK.RECEIVED) 

366  FSM_TEST_COID  (RC .FRAME) 

367  FSH_TEST_COID  (TRT.EXPIRE) 

368  FSN.TEST.COID  (FRAME. ARRIVAL) 

369  FSMJDFLT.COID 

370  FSM.TEST.LOGIC  ("IDLE") 
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371  FSM_TRAISIT_SVITCH 

372  < 

373  FSM_CiSE_TRAISIT  (0, 

374  FSI_CASE_TRAISIT  (1. 

375  FSM.CASE.TRAISIT  (2. 

376  FSM.CASE.TRAISIT  (3, 

377  FSM.CASE.TRAISIT  (4. 

378  > 

379  /* - 


3,  state3.enter.exec,  ;) 

4,  state4.enter.exec,  ;) 

7,  state7.enter.exec,  ;) 

8,  state8.enter.exac ,  ;) 
1,  statel.enter.exec,  ;) 


*/ 


380  /**  atata  (ISSUE_TK)  enter  axacutivaa  **/ 

381  FSH.STATE.EITER.FORCED  (2,  state2.enter.exec,  MISSUE_TKM) 

382  { 

383  /*  II  tha  token  ia  aant  without  having  bean  used,  and  the  station  */ 

384  /*  has  no  data  to  sand,  than  indicate  this  fact  to  tha  */ 

386  /•  token  acceleration  aechanisa  which  nay  have  an  */ 

386  /a  opportunity  to  block  tha  token.  */ 

387  it  (!tk_usable  M  op_q_atat  (OPC.QSTAT.PKSIZE)  «  0.0) 

388  { 

380  /•  Iota  that  if  tha  token  cannot  be  blocked,  a/ 

390  /a  this  procedure  will  forward  the  token  physically,  a/ 

391  fddi.tk_indicate_no.data  (tk_pkptr,  ay.address,  accna_bandwidth) ; 

392  } 

393  else-C 

394  if  (tk_trace_on  ■»  0PC.TRUE) 

396  { 

396  sprintf  (strO,  "Issui~^  token.  accua_bw  (X .91),  prop_del  (X.9f)N, 

397  accua.bandvidth,  Fddi  rop.Delay) ; 

398  op_prg_odb_print_aajor  (strO,  0PC.IIL); 

399  > 

400  /a  Send  out  the  token  packet  using  the  accunulated  •/ 

401  /*  contused  bandwidth  as  a  scheduling  base.  •/ 

402  /*  In  the  case  of  the  initial  spawning  of  the  token  */ 

403  /*  this  will  be  zero;  otherwise  this  variable  will  a/ 

404  /*  reflect  the  bandwidth  consuaed  since  the  last  capture  a/ 

406  /*  of  the  usable  token.  Propagation  delay  is  also  accounted  for.  */ 

406  op.pk.send.delayed  (tk.pkptr,  FDDI.PHY.STRM.OUT, 

407  accua_bandwidth  ♦  Fddi.Prop.Delay) ; 

408  > 

409  > 

410  /ee  state  (ISSUE.il)  exit  executives  *•/ 

411  FSH_STATE_EXIT_FORCED  (2,  state2.exit.exec,  "ISSUE.TK") 

412  { 

413  > 
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414  /*•  state  (ISSUE.TK)  transition  processing  **/ 

415  FSM.TRAVS IT.FORCE  (1,  statel_enter_exec,  ;) 

410  /* - */ 


417  /**  state  (RCV_TK)  enter  executives  **/ 

418  PSM_STATE_EITER_FQRCED  (3.  state3_enter_exec ,  "RCV.TK") 

419  { 

420  /*  The  arriving  packet,  when  received  in  the  IDLE  state  */ 

421  /*  is  placed  in  the  variable  ’pkptr ' .  Since  it  is  nos  */ 

422  /•  known  that  it  is  a  token,  it  can  be  placed  in  *tk_pkptr.  */ 

423  tk_pkptr  *  pkptr; 

424 

425  /•  Load  the  token's  class  into  the  temporary  variable  'tk.class . ’  */ 

426  op_pk_nfd_get  (pkptr,  "class",  ktk.class); 

427  /*  If  the  token  is  restricted,  determine  for  which  station.  */ 

428  if  (tk_class  ••  FDDI_TK_RESTRICTED) 

429  i 

430  /*  Place  the  station  address  in  the  variable  ’res.station’  */ 

431  /*  which  may  factor  in  to  the  determination  of  token  usability.  */ 

432  op_pk_nfd_get  (tk_pkptr,  "res .station",  ftres. station) ; 

433  > 


434  /*  Determine  if  the  token  is  usable:  */ 

435  /*  assume  by  default  that  it  is  not  •/ 

436  /*  Subsequent  conditions  may  override  this.  */ 

437  tk_usable  =  0; 


438  /♦  The  token  can  only  be  usable  if  there  are  frames  enqueued  */ 


439  /*  27DEC93:  the  entire  bank  of  subqueues  must  be  checked,  */ 

440  /*  starting  at  the  highest  priority  (corresponding  to  */ 

441  /*  synchronous  traffic),  and  stopping  when  a  packet  is  */ 

442  /*  found.  Then  the  loop  is  broken,  -fix  */ 


443  IUM.PRI0S  *  9; 

444  for  (i  ■  IDM.PRIOS  -  1;  i  >  -1;  i— ) 

446  { 

446  if  (op_subq_stat  (i,  OPC.QSTAT.PKSIZE)  >0.0) 

447  { 

448  /*  examine  the  attributes  of  the  packet  at  the  */ 

449  /*  head  of  the  queue.  */ 

450  fddi.load.frame.attrs  (ftdest.addr,  ksvc.class,  Rpri.level); 

451  /*  If  synchronous  data  is  queued,  the  token  is  */ 

452  /•  necessarily  usable,  regardless  of  timing  conditions.  */ 

453  if  (svc.class  **  FDDI.SVC.SYIC) 


455  tk.usable  *  1; 

456  break; 

457  > 

458  else{ 

450  /•  Otherwise,  if  asynchronous  data  ia  queued,  it  mat  */ 

460  /•  meet  several  criteria  for  the  token  to  be  uaable.  */ 

461  /•  The  token  ia  only  uaable  only  if  it  ia  early.  ♦/ 

462  if  (Late.Ct  •«  0) 

463  { 

464  /*  The  token 'a  daaa  mat  be  nonreatricted,  unless  */ 

465  /*  thia  atation  ia  involved  in  the  reatricted  transfer.  */ 

466  if  (tk.class  «  FDDI_TK_IOIRESTRICTED  1 1 

467  rea.atation  *«  my .address  | | 

468  reatricted) 

460  { 

470  /•  Teat  the  frame* a  priority  assignment  against  the  current  TUT  */ 

471  /e  This  test  uses  the  priority  indirection  table  T_Pri  */ 

472  /*  so  that  only  packets  whose  T.Pri  [pri.level]  exceeds  */ 

473  /*  the  TRT  can  be  transmitted.  In  other  words,  by  */ 

474  /•  assigning  lover  values  to  T_Pri  for  a  given  priority  */ 

475  /*  level,  packets  of  that  level  sill  be  further  restricted  */ 

476  /*  from  using  the  ring  bandwidth.  */ 

477  if  (T.Pri  [pri.level]  >=  fddi.timer.value  (TRT)) 

478  { 

470  tk_usable  *  1; 

480  break; 

481  > 

482  > 

483  > 

484  > 

486  >  /*  closes  the  "if  (op.aubq.atat  (OPC.QSTAT.PKSIZE)  >  0.0"  statment  */ 

486  }  /*  doses  the  "for"  loop  */ 


487  /*  If  the  token  is  uaable,  timers  must  be  readjusted.  */ 

488  if  (tk.usable) 

480  { 

400  /*  The  timer  adjustment  depends  on  whether  the  token  is  early  or  late.  */ 

401  if  (Late.Ct  *=  0) 

402  { 

403  /*  Transfer  the  contents  of  TRT  into  THT.  */ 

404  tddi.timer.copy  (TRT,  THT); 

406  /*  Disable  the  THT  timer.  */ 

406  fddi_timer .disable  (THT); 

407  /e  Reset  TRT  to  time  the  next  rotation.  */ 

408  op.ev.cancel  (TRT .handle) ; 

400  TRT.SET  (my .address,  op. aim. time  ()  +  Fddi.T.Opr); 
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601  else{ 

502  /*  If  the  token  is  late,  set  the  THT  to  its  expired  */ 

60S  /*  value,  and  disable  it.  Ibis  sill  prevent  any  */ 

504  /•  asynchronous  transmissions  iron  oc curing.  */ 

605  fddi.tiaer.set.value  (THT,  Fddi.T.Opr); 

606  fddi_tiaer_disable  (THT); 

507  /*  clear  the  Late  token  counter  (note  that  THT  is  not  modified,  */ 

608  /*  so  that  less  than  a  lull  TTRT  reaains  before  TRT  expires  again.  */ 
509  Late.Ct  ■  0; 

610  > 

611  > 


612  /*  If  the  token  is  not  usable,  different  adjustaients  are  nade.  */ 

513  else{ 

614  /*  Again,  the  adjustments  depend  on  the  lateness  of  the  token  */ 

516  if  (Late.Ct  ==  0) 

616  { 

617  /*  If  the  token  is  not  late,  the  TRT  is  reset  to  tine  the  next  rotation.  */ 

618  op.ev.cancel  (TRT .handle) ; 

619  TRT.SET  (ay .address,  op_sia_tiae  ()  +  Fddi.T.Opr) ; 

520  } 

621  else{ 

522  /*  clear  the  Late  token  counter  (note  that  TRT  is  not  modified,  */ 

523  /«  so  that  less  than  a  full  TTRT  reaains  before  TRT  expires  again.  «/ 

524  Late.Ct  *  0; 

625  > 

526  /*  also,  account  for  the  tine  needed  by  the  token  */ 

527  /*  to  traverse  the  station,  since  it  is  about  to  be  sent.  */ 

528  /*  lots:  station  latency  is  not  inclusive  of  token  */ 

529  /*  transmission  tiae,  but  only  of  the  tine  required  to  */ 

530  /*  process  and  repeat  the  token's  symbols.  */ 

631  accua.bandvidth  «  Fddi.St .Latency; 

632  > 


533  > 


634  /**  state  (RCV.TK)  exit  executives  **/ 

535  FSM.STATE.EXIT.FORCED  (3,  state3.exit.exec,  "RCV.TK") 

636  { 

637  > 


638  /•*  state  (RCV.TK)  transition  processing  **/ 
539  FSM.IIZT.COID  (tk.usable) 

640  FSH  J)FLT.C0ID 


641  FSM_TEST_LOGXC  (MRCV_TXM) 


642  FSM_TRAISIT_SVITCH 

643  { 

644  FSM_CASE_TRA*SIT  (0,  9,  statement  er.sxsc,  ;) 

646  FSH_CASE_TRAISIT  (1.  2.  state2_enter  exec ,  ;) 

646  > 

547  /* - - 


648  /**  state  (FR_RCV)  enter  executives  **/ 

649  FSH_STATE_E*TER_FORCED  (4,  state4_enter_exec,  MFR_RCVM) 

660  { 

661  /*  A  frame  has  been  received  from  the  physical  layer.  lote  that  */ 

662  /*  at  this  time,  only  the  leading  edge  of  the  frame  has  arrived.  */ 

663  /*  Extract  the  frame’s  source  address  (this  sill  be  used  to  */ 

664  /*  determine  whether  or  not  to  strip  the  frame  from  the  ring) .  */ 
666  op_pk_nfd_get  (pkptr,  Msrc_addr*‘,  Asrc.addr); 

666  > 


667  /**  state  (FR_RCV)  exit  executives  **/ 

668  FSM_STATE_EXTT_FORCED  (4,  state4_exit_exec,  "FR.RCV") 

659  { 

660  > 


561  /**  state  (FR_RCV)  transition  processing  **/ 

662  FSM_IIIT_CO*D  (STRIP) 

663  FSMJJFLT.COID 

664  FSH_TEST .LOGIC  ("FR.RCV") 

666  FSM_TRAISIT_SWITCH 
666  { 

667  FSM.CASE.TRAISIT  (0,  6,  state5_enter_exec,  ;) 

668  FSK_CASE_TRAISIT  (1,  6,  state6_enter_exec ,  ;) 

669  > 

570  - - - 


571  /•*  state  (FR.STRIP)  enter  executives  **/ 

672  FSM_STATE_EITER_FORCED  (5,  state5_enter_exec,  "FR.STRIP") 

673  { 

674  /*  Destroy  the  frame  ehich  has  nov  circulated  the  entire  ring.  */ 
676  op_pk_dsstroy  (pkptr); 

676  } 
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577  /•*  state  (FR.STRIP)  exit  executives  ••/ 

578  FSM.STATS.BXXT.FORCED  (5,  etate5.exit.exec,  "FR_ STRIP") 
679  { 

580  > 


681  /*e  state  (FR_ STRIP)  transition  processing  e*/ 

682  FSM.TRAISIT.FORCE  (1,  statel.enter.exec,  ;) 

683  /* - */ 


584  /*•  state  (FR.REPEAT)  enter  executives  **/ 

585  FSM_STATE_EITBR_FORCED  (8,  state6.enter.exec,  "FR.REPEAT") 

586  { 

587  /•  Extract  the  destination  address  of  the  fraae.  */ 

688  op_pk.nfd.get  (pkptr,  "dest.addr",  Adest.addr); 

589  /e  If  the  fraae  is  for  this  station.  Bake  a  copy  •/ 

590  /•  of  the  fraae's  data  field  and  foruard  it  to  */ 

691  /*  the  higher  layer.  */ 

692  /•  14APR94  :  In  order  to  send  the  fraaes  vhich  are  */ 

693  /*  addressed  to  the  renote  lan,  check  the  address  database  */ 

694  /•  of  reaote  lan.  Fraaes  addressed  to  the  reaote  lan  shouldn't  */ 

595  /•  be  repeated  in  the  local  ring  --  This  is  a  siaple  forwarding  */ 

596  /*  decision  algoritha,  one  of  the  bridge's  function  */ 

697  /*  -  Karayakaylar  */ 

598  if((dest_addr  ««  ay.address) 1 1 (dest.addr  >  ay.address)) 

599  { 

600  /•  record  total  sixe  of  the  fraae  (including  data)  */ 

601  pk_len  *  op_pk_total_size_get  (pkptr); 

602  /*  decapsulate  the  data  contents  of  the  fraae  */ 

603  /*  29JAI94:  a  new  field,  "pri",  has  been  added  to  */ 

604  /*  the  fddi.llc.fr  packet  fozaat  in  the  Parameters  */ 

606  /*  Editor,  so  that  output  statistics  can  be  */ 

606  /•  generated  by  class  and  priority.  -Vix  */ 

607  op_pk_nfd_get  (pkptr,  "info",  *data_pkptr) ; 

608  op_pk_nfd_get  (pkptr,  "pri",  Apri.level); 

609  /e  The  source  and  destination  address  are  placed  in  the  •/ 

610  /e  LLC's  ICI  before  delivering  the  fraae's  contents.  */ 

611  op.ici_attr.set  (to_llc_ici_ptr,  "src.addr",  src.addr); 

612  op.ici_attr.set  (to_llc_ici_ptr,  "dest.addr",  dest.addr); 

613  op.ici.install  (to.llc_ici.ptr) ; 

614  /•  Because,  as  noted  in  the  FR.RCV  state,  only  the  */ 

616  /•  fraae's  leading  edge  has  arrived  at  this  tiae,  the  */ 

616  /•  coaplete  fraae  can  only  be  delivered  to  the  higher  */ 

617  /*  layer  after  the  fraae's  transmission  delay  has  elapsed.  */ 

618  /*  (since  decapsulation  of  the  fraae  data  contents  has  occured,  •/ 
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019  /*  the  original  MAC  fraae  length  is  used  to  calculate  delay)  */ 

620  tx_tisie  ■  (double)  pk.len  /  FDDI_TX_RATE; 

621  op_pk_send_delayed  (data_pkptr,  FDDI_LLC_STRM_OUT,  tx.tiae); 

622  /•  lote  that  the  standard  specifies  that  the  original  */ 

623  /*  frame  should  be  passed  along  until  the  originating  station  */ 

624  /*  receives  it,  at  which  point  it  is  stripped  fron  the  ring.  */ 

626  /*  However,  in  the  simulation  aodel,  there  is  no  interest  */ 

626  /*  in  letting  the  fraae  continue  past  its  destination  unless  */ 

627  /*  group  addresses  are  used,  so  that  the  sane  fraae  could  be  */ 

628  /e  destined  for  several  stations.  Here  the  fraae  is  stripped  */ 

629  /*  for  efficiency  as  it  reaches  the  destination;  if  the  aodel  */ 

630  /*  is  aodified  to  include  group  addresses,  this  should  be  changed  */ 

631  /*  so  that  the  fraae  is  copied  and  the  original  repeated.  */ 

632  /*  Logic  is  already  present  for  stripping  the  fraae  at  the  origin.  */ 

633  op_pk_destroy  (pkptr); 

634  > 

636  /*  14APR94  :  the  frames  belong  to  this  ring  should  be  repeated.  */ 

636  /*  Thus,  local  traffic  is  constrained. —  This  is  filtering  decision  */ 

637  /*  One  of  the  bridge’s  function  -  Karayakaylar  */ 

638  else{ 

639  /*  Repeat  the  original  fraae  on  the  ring  and  account  for  */ 

640  /*  the  latency  through  the  station  and  the  propagation  delay  */ 

641  /*  for  a  single  hop.  */ 

642  /•  (Only  the  originating  station  can  strip  the  frame).  */ 

643  op.pk.s end. del ay ed  (pkptr.  FDDI_PHY_STRM_OUT , 

644  Fddi_St_Latency  +  Fddi_Prop_Delay) ; 

646  > 

646  > 


647  /*♦  state  (FR_REPEAT)  exit  executives  **/ 

648  FSM_STATE_EXIT_FORCED  (6,  state6_exit_exec,  "FR. REPEAT") 

649  l 
660  > 


661  /**  state  (FR.REPEAT)  transition  processing  *e/ 

662  FSM.TRAISIT.FORCE  (1,  statel_enter_exec,  ;) 

063  /* - - - */ 


064  /**  state  (TRT.EXP)  enter  executives  **/ 

066  FSM_STATE_EITER_FORCED  (7,  state7.enter.exec,  "TRT.EXP") 
666  { 

667  /*  The  timer  is  reset  and  allowed  to  continue  running.  */ 

668  TRT.SET  (ay.address,  op.sia.tiae  ()  ♦  Fddi.T.Opr); 

669  /e  The  late  token  counter  is  increaented.  This  will  */ 
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660  /*  prevent  tliie  station  from  asking  anj  asynchronous  */ 

661  /*  transmissions  when  it  next  captures  the  token.  */ 

662  Late_Ct++; 

663  > 


664  /**  state  (TRT.EIP)  exit  executives  **/ 

665  FSM_STATE_EXIT_FORCED  (7.  state7_exit_exec,  "TRT_EIPM> 

666  { 

667  > 


668  /♦*  state  (TRT.EIP)  transition  processing  **/ 

669  FSH.TRAISIT.FORCE  (1,  statel.enter.exec,  ;) 

670  /* - */ 


671  /♦*  state  (EICAP)  enter  executives  **/ 

672  FSH_STATE_EITER_FORCED  (8,  state8.enter.exec,  "EICAP") 

673  { 

674  /*  A  frame  has  arrived  iron  a  higher  layer;  place  it  in  ’ pdu.pt r’ .  */ 

676  pdu_ptr  *  op_pk_get  (op.intrpt.stra  ()); 

676  /*  Also  get  the  interface  control  inforaation  */ 

677  /*  associated  vith  the  nev  fraae.  */ 

678  ici_ptr  »  op.intrpt.ici  (); 

679  if  (ici.ptr  =*  OPC.IIL) 

680  { 

681  sprint!  (error.string,  "Simulation  aborted;  error  in  object  Oid) " , 

682  op.id.self  ()); 

683  op.sia_end  (error.string,  "fddi.aac:  required  ICI  not  received",  "  "  ") 

684  > 

685  /*  Extract  the  requested  service  class  */ 

686  /*  (e.g,  synchronous  or  asynchronous).  */ 

687  if  (op.ici.attr.exists  (ici.ptr,  "svc.class")) 

688  op.ici_attr.get  (ici.ptr,  "svc.class",  tsvc.class); 

689  else  svc.class  *  PDDI.SVC.ASYVC; 

690  /*  Extract  the  destination  address.  */ 

691  op.ici_attr.get  (ici.ptr,  "dest.addr",  ftdest.addr); 

692  /*  Extract  the  original  source  address  froa  ICI  :16APR94  */ 

693  op_ici_attr_get  (ici.ptr,  "src.addr",  Aorig.src.addr) ; 

694  /*  If  the  fraae  is  asynchronous,  the  priority  and  */ 

695  /*  requested  token  class  paraaeter  any  be  specified.  •/ 

696  if  (svc.class  *=  FDDI.SVC.ASY1C) 
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697  { 

698  /*  Extract  the  requested  priority  level.  */ 

699  it  (op.ici.attr.exists  (ici.ptr,  "pri")) 

700  op_ici_attr_get  (ici.ptr,  "pri",  Irreq.pri); 

701  else  req_pri  =  0; 

702  /*  Extract  the  token  class  (restrictred  or  non-restricted) .  */ 

703  if  (op.ici.attr.exists  (ici.ptr,  "tk.dass")) 

704  op_ici_attr_get  (ici.ptr,  Mtk_class",  Areq_tk_ class); 

705  else  req_tk_dass  «  FDDI.TK JfOIRESTRICTED ; 

706  > 

707  /*  Check  for  the  default  ICI  values; if  they  are  not  present  */ 

708  /•  compose  the  frame: 21APR94  */ 

709  if(  dest.addr  !=  orig.src.addrH 

710  /*  Compose  a  mac  frame  from  all  these  elements.  */ 

711  mac.fraine.ptr  =  op_pk_create_fmt  ("fddi_mac_fr") ; 

712  op_pk.nfd_set  (mac.frame.ptr,  "svc.class",  svc.class); 

713  op_pk_nfd_eet  (mac.frame.ptr,  "dest.addr",  dest.addr); 

714  /*op_pk_nfd_set  (mac.frame.ptr,  "src.addr",  my .address) ;*/ 

715  /•  here  original  source  address  should  be  kept  in  mac  frame  : 16APR94*/ 

716  op.pk.nfd_set  (mac.frame.ptr,  "src.addr”,  orig. src.addr) ; 

717  op.pk_nfd.set  (mac.frame.ptr,  "info",  pdu_ptr); 

718  printf ("\ndest_addr  *  %Sd\n", dest.addr) ; 

719  printf ("orig. src_addr=  X5d\n",orig_src.addr) ; 

720  if  (svc.class  ««  FDDI.SVC.ASYIC) 

721  { 

722  op.pk_nfd.set  (mac.frame.ptr,  "tk_class",  req.tk.dass) ; 

723  op_pk_nfd_set  (mac.frame.ptr,  "pri",  req_pri); 

724  > 

725  /*  04JAI94:  if  the  frame  is  synchronous,  assign  it  a  separate  */ 

726  /*  priority  so  that  it  may  be  assigned  its  own  subqueue,  and  */ 

728  /•  thereby  be  assigned  its  osn  probe  for  monitoring,  -fix  */ 

729  if  (svc.class  ««  FDDI.SVC.SYIC) 

730  { 

731  op.pk_nfd.set  (mac.frame.ptr,  "pri",  8); 

732  > 

733  /*  Assign  the  frame  control  field,  vhich  in  the  model  */ 

734  /*  is  used  to  distinguish  betseen  tokens  and  ordinary  */ 

735  /•  frames  on  the  ring.  */ 

736  op.pk_nfd.set  (mac.frame.ptr,  "fc",  FDDI.FC.FRAME) ; 

737  /*  Enqueue  the  frame  at  the  tail  of  the  queue.  */ 

738  /•  27DEC93:  at  the  tail  of  the  prioritized  queue.  */ 

739  /*  04JAV94:  must  distinguish  betseen  synch  A  asynch.  */ 

740  if  (svc.class  ««  FDDI.SVC.ASYIC) 

741  { 
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742  op.subq.pk_ insert  (req.pri .  mac.f rame.ptr ,  OPC.QPOS.TAIL) ; 

743  > 

744  if  (svc.class  «■  FDDI.SVC.SYIC) 

745  { 

746  op.subq.pk. insert  (8,  mac.f rame.ptr,  OPC.QPOS.TAIL); 

747  } 


748  /•  if  this  station  has  not  jet  registered  its  intent  to  */ 

749  /*  use  the  token,  it  aaj  do  so  nos  since  it  has  data  to  send  */ 

750  if  (!tk_registered) 

751  { 

752  fddi_tk_register  (); 

753  tk_registered  =  1; 

764  > 

765  >  /*  end  of  if(dest_addr  !=  orig.src.addr)  statement  */ 


> 


756  /**  state  (E1CAP)  exit  executives  **/ 

767  FSM.STATE.EXIT.FORCED  (8,  state8.exit.exec,  “EICAP") 

768  { 

759  } 


760  /**  state  (EICAP)  transition  processing  **/ 

761  FSH.TRAISIT.FORCE  (1,  statel.enter.exec,  ;) 

762  /* - */ 


763  /**  state  (TX.DATA)  enter  executives  **/ 

764  FSN.STATE.EITER.FORCED  (9,  state9.enter.exec,  "TX_DATA") 

766  < 

766  /*  In  this  state,  frames  are  transmitted  until  the  */ 

767  /*  token  is  no  longer  usable.  Frames  are  taken  from  */ 

768  /*  the  single  input  queue  in  FIFO  order.  •/ 

769  /*  Reset  the  accumulator  used  to  keep  track  of  bandsidth  */ 

770  /*  consumed  bj  the  transmissions.  Because  all  the  transmissions  */ 

771  /*  are  scheduled  to  happen  at  the  appropriate  times,  but  */ 

772  /•  these  schedulings  occur  instantly,  this  accumulator  serves  */ 

773  /•  as  the  scheduling  base  for  the  transmissions.  */ 

774  /*  In  other  words,  each  successively  transmitted  frame  */ 

775  /*  is  delayed  relative  to  the  previous  one  by  the  time  which  */ 

776  /•  the  latter  took  to  send.  At  the  end  of  transmission  (e.g,  */ 

778  /*  when  the  token  is  no  longer  usable),  this  accumulator  */ 
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779  /*  serves  to  delay  tha  forwarding  of  the  token.  */ 

780  accum_bandwidth  *0.0; 


781  /•  Iota  that,  bacansa  all  tranasmiasions  are  */ 

782  /*  scheduled,  tha  value  of  tha  THT  timer  sill  not  progress  */ 

783  /*  between  shcedulings  (these  all  happen  in  zero  tine) ,  and  so  */ 

784  /*  the  variable  'tht.value*  is  used  to  enulate  the  tiner *s  progress.  */ 

785  tht.value  *  fddi.timer .value  (THT); 

786  /*  ****************************************************  */ 

787  /*  30MAR94:  print  T.PriCi] .  THT  data  */ 

788  /*  for  (i  *  0;  i  <  8;  i++)  */ 

789  /*  {  */ 

790  /*  print! ("TX.DATA:  T.PriCXd]  *  Xd.  THT  *  Xd,  Fddi.T.Opr  *  %d\nM,  i.  T.PriCi],  tht.value  */ 

791  /*  >  */ 

792  /•  Reset  an  accuaulator  which  reflects  the  consuned  */ 

793  /*  synchronous  bandwidth.  */ 

794  accua.sync  *  0.0; 

795  /•  Reset  counters  for  transnitted  frames  and  bits.  */ 

796  nua_fraaes_sent  *  0; 

797  nta.bite.sent  *  0; 

798  /*  The  transnission  sequence  aust  end  if  the  input  queue  */ 

799  /*  becomes  exhausted.  Other  termination  conditions  are  */ 

800  /*  eabedded  in  the  loop.  */ 

801  /*  270EC93:  modify  tha  loop  to  accomodate  subqueue  structure.  */ 

802  /*  A  "for”  loop  is  imposed  over  the  original  "while"  loop.  */ 

803  /*  First,  reset  the  break  marker,  "punt".  -lix  */ 

804  punt  *  0; 

805  for  (i  *  IUM.PRI0S  -  1;  i  >  -1;  i~) 

806  { 

807  while  (op.subq.stat  (i.OPC.QSTAT.PKSIZE)  >  0.0) 

808  { 

809  /*  Remove  the  next  frame  for  transmission.  */ 

810  pkptr  *  op_subq_pk_reaove  (i,  OPC.QPOS.HEAD) ; 

811 

812  /*  Obtain  the  frame's  service  class.  */ 

813  op.pk_nfd.get  (pkptr,  "svc.dass",  ksvc.class); 

814 

815  /*  Synchronous  and  asynchronous  frames  are  treated  differently.  */ 

816  if  (svc.dass  *«  FDDI.SVC.SYIC) 

817  < 

818  /*  Obtain  the  frame's  length,  and  compute  */ 

819  /*  the  time  required  to  transmit  it.  */ 

820  pk.len  •  op_pk.total.size.get  (pkptr); 

821  tx.tiae  *  (double)  pk.len  /  FDDI.TX.RATE; 

822  /*  Check  if  synchronous  bandwidth  allocation  for  this  */ 
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823  /•  station  would  b«  szcosdsd  if  ths  transaission  wars  to  occur.  */ 

824  if  (accua_syne  +  tx.tias  >  sync.bandwidth) 

825  { 

828  /•  Ths  fraas  could  not  bs  sant  without  axcssding  */ 

827  /*  ths  allocatsd  synchronous  bandwidth,  */ 

828  /*  so  it  is  rsplacsd  on  ths  qusus.  */ 

829  /*  27DEC93 :  in  this  cass,  i  is  ths  highast  priority,  •/ 

830  /*  which  is  rsssrvsd  for  synchronous  traffic.  -fix  */ 

831  op. subq.pk. insert  (i,  pkptr,  OPC.QPOS.HEAD) ; 

832  /*  Exit  ths  transaission  loop  sines  ths  fraas  */ 

833  /*  transaission  rsquast  cannot  bs  honorsd.  */ 

834  punt  *  1; 

836  brsak; 

838  > 

837  alsa{ 

838  /*  Sand  ths  fraas  into  ths  ring  aftsr  othsr  fraass  haws  coaplstsd.  */ 

839  /*  Also,  account  for  its  proagation  dslay;  bscauss  ths  toksn  propagation  */ 

840  /*  dslay  and  ths  fraas  propagation  dslay  nust  bs  consistant,  and  ths  */ 

841  /*  toksn  propagation  dslay  is  spacifisd  as  a  ring  paraastsr  (i.s,  stations  */ 

842  /*  ara  assumed  to  bs  squally  spacsd) ,  ths  ring  is  intsndsd  to  run  with  */ 

843  /*  ths  "dslay"  attributss  of  point-to-point  links  sot  at  zsro.  */ 

844  op_pk_ssnd_dslaysd  (pkptr,  FDDI_PHY_STRM_OUT,  accua.bandwidth  +  Fddi_Prop_Dslay) ; 

845  /•  increase  ths  consuasd  bandwidth  to  rsflsct  this  */ 

848  /*  transaission.  Also  inersass  synchronous  consuaption.  */ 

847  accua_bandwidth  tx.tias; 

848  accua_sync  +=  tx.tias; 

849  /*  Inersass  countsrs  for  transaittsd  bits  and  fraass.  */ 

850  nua.fraaas.sant-M-; 

851  nua.bits.ssnt  +=  pk.lsn; 

852  > 

853  > 

854  slss{ 

856  /*  Ths  rsquast  snqususd  at  ths  hoad  of  ths  qusus  is  */ 

858  /*  asynchronous.  It  aay  only  bo  honorsd  if  ths  THT  tiaar  */ 

857  /*  has  not  sxpirsd.  */ 

868  if  (tht.valus  >*  Fddi.T.Opr) 

859  { 

880  /*  rsplacs  ths  packst  on  ths  qusus  and  sxit  ths  transaission  loop.  */ 

881  op_subq.pk_inssrt  (i,  pkptr,  OPC_CJP?S_HEAD) ; 

862  punt  *  1; 

863  brsak; 

864  > 

866  slsa{ 

866  /*  Obtain  ths  priority  assignasnt  of  ths  fraas.  */ 

867  op.pk_nfd.get  (pkptr,  "pri",  Apri.level) ; 

868  /*  If  ths  packst 's  assignod  priority  lswsl  */ 

869  /•  is  too  low  for  it  to  bs  ssrvicsd,  than  sxit  ths  loop  */ 
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870  /*  alter  replacing  the  packet  is  the  queue.  */ 

871  if  (T_Pri  [pri.level]  <  tht.value) 

872  { 

873  op_subq_pk_insert  (i,  pkptr,  OPC.QPOS.HEAD) ; 

874  punt  *  1; 

875  break; 

878  > 

877  /•  Obtain  the  frame's  length,  and  coapate  the  tine  •/ 

878  /•  which  would  be  required  to  transmit  it.  */ 

870  pk_len  *  op_pk_total_size_get  (pkptr); 

880  txjtime  ■  (double)  pk_len  /  FDDI_TX_RATE; 

881  /*  Determine  the  requested  token  class  to  be  */ 

882  /•  released  after  this  frame  is  transmitted.  */ 

883  op_pk_nfd_get  (pkptr,  "tk_ class M,  ktk.class); 

884  /*  If  the  station  is  in  restricted  mode,  then  it  may  */ 

885  /•  exit  this  mode  if  the  class  is  now  nonrestricted  */ 

886  /*  or  if  the  restricted  peer  is  not  the  addressee.  */ 

887  if  (restricted) 

888  { 

889  /*  Determine  the  destination  address  for  the  new  packet.  */ 

890  op.pk.nfd.get  (pkptr,  "des u.addr " ,  tdest.addr); 

891  if  (tk_ class  «  FDDI_TK_IOIRESTRICTED  1 1 

892  res_peer  !*  dest.addr) 

893  { 

894  /*  Exit  restricted  mode  */ 

895  restricted  *  0; 

896 

897  /*  Modify  the  token  to  reflect  the  mode  change.  */ 

898  op_pk_nfd.set  (tk.pkptr,  "class",  KDDI_TK_ I 01 RESTRICTED) ; 

899  > 

900  > 

901  else{ 

902  /*  Determine  the  class  of  the  current  captured  token.  */ 

903  op_pk_nfd_get  (tk.pkptr,  "class",  kcurrent.tk.class); 

904  /•  When  not  in  restricted  node,  this  mode  may  be  entered  */ 

905  /*  if  the  passed  packet  has  the  appropriate  token  class  requested,  */ 

906  /e  and  the  token  is  not  already  restricted.  */ 

907  if  (tk.class  «  FDDI_TK_RESTRICTED  U  current.tk.class  !=  FDDI.TK.RESTRICTED) 

908  { 

909  /*  Enter  restricted  mode.  */ 

910  restricted  *  1; 

911  /*  Store  the  address  of  the  resticted  peer  station.  •/ 

912  op_pk_nfd_gst  (pkptr,  "dest.addr",  tres.peer); 
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913  /*  Modify  the  token  to  reflect  the  node  change.  */ 

914  op_pk_nid_set  (tk_pkptr,  "class",  FDDI.TK. RESTRICTED) ; 

915  op_pk_nfd_set  (tk_pkptr,  "res.station",  res.peer); 

91«  > 

917  } 

918  /*  Send  the  frame  once  previous  transmissions  have  completed.  */ 

919  /*  Account  for  propagation  delay  as  sell.  */ 

920  op.pk.send.delayed  (pkptr,  FDDI_PHY_STRM_OUT,  accum.bandwidth  +  Fddi_Prop_Delay) ; 


921  /*  Increment  THT  emulation  variable,  and  consumed  bandwidth  accumulator.  */ 

922  tht .value  tz.time; 

923  accum.bandwidth  +=  tz.time; 


924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 

935 


/*  Increase  counters  for  transmitted  bits  and  frames.  */ 
num.fr ames_sent++ ; 
num.bits.sent  ♦«  pk.len; 

> 

> 

>  /*  closes  the  'while*  loop  */ 

if  (punt  »»  1)  /*  If  the  ’while*  loop  was  broken. 


punt  *  0; 
break; 

> 

> 


/*  then  reset  the  ’break'  marker, 

/•  and  break  out  of  the  'for'  loop  too. 

/*  closes  the  'for'  loop.  */ 


*/ 

*/ 

*/ 


936  /*  Since  the  token  is  about  to  be  sent,  its  transmission  time  */ 

937  /*  must  be  reflected  in  the  accumulated  bandwidth.  This  is  not  */ 

938  /*  done  in  the  ISSUE.TK  state  because  when  the  token  is  merely  */ 

939  /•  repeated,  full  transmission  delay  is  not  required,  only  */ 

940  /*  a  small  delay  for  repeating.  */ 

941  accum_bandwidth  ♦*  FDDIC.TQKEV_TX.TIME; 

942  /*  If  the  station  has  no  more  data  to  send  (synchronous  or  */ 

943  /*  asynchronous),  it  should  indicate  this  to  the  token  acceleration  */ 

944  /*  mechanism  by  deregistering  its  interest  in  the  token.  */ 

945  /*  27DEC94:  the  original  code  must  be  modified  to  include  a  check  */ 

946  /*  of  subqueues.  -Viz  */ 

947  q_check  *  1; 

948  for  (i  «  IUM.PRI0S  -  1;  i  <  -1;  i— ) 

949  { 

950  if  (op_subq_stat  (i,  OPC.qSTAT.PKSIZE)  «  0.0) 

951  { 

952  q_ check  *  0; 

953  > 

954  else  { 

966  q.check  *  1; 

956  break ; 
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967  } 

958  > 

959  if  (tk_registered  A*  q_check  «»  0) 

960  { 

961  tk.registsred  =  0; 

962  fddi.tk.dsregister  (); 

963  > 


964  > 


965  /**  state  (TX.DATA)  exit  executives  **/ 

966  FSM_STATE_EXIT_FORCED  (9,  atata9.axit.axac.  "TX.DATA") 

967  { 

968  > 


969  /**  state  (TX.DATA)  transition  processing  **/ 

970  FSM.TRAISIT. FORCE  (2.  atate2_enter_exee,  ;) 

971  /• - */ 


972  /**  state  (CLAIM)  enter  executives  **/ 

973  FSK.ST ATE.EITER.UIFORCED  (10.  statelO.enter.exec,  "CLAIM") 

974  ( 

976  /*  Obtain  tbis  station's  object  id  ehicb  is  used  */ 

976  /*  to  access  the  station's  attribute  assignaents.  */ 

977  ay.objid  ■  op.id.self  (); 

978  /*  Using  the  object  id,  obtain  the  ring  id.  */ 

979  /*  The  ring  id  is  used  by  nacros  defined  in  the  */ 

980  /•  header  block  to  obtain  "ring-global"  values,  */ 

981  /*  values  shared  by  all  stations  on  a  ring.  */ 

982  op.iaA_obj_attr_get  (ay.objid,  "ring_id",  bring. id) ; 

983  /*  Initialize  global  variable  values.  */ 

984  Fddi.Tk.Blocked  ■  0; 

986  Fddi.Iun.Stations  ■  0; 

986  Fddi_Iua_Registered  *  0; 

987  /•  Using  the  object  id,  obtain  the  value  of  'T.Req',  */ 

988  /*  the  value  of  TTRT  requested  by  this  station.  */ 

989  op_ina_obj_attr_g«t  (ay.objid,  "T.Req",  RT.Req); 

990  /•  30MAR:  workaround;  Fddi.T.Opr  is  never  initialized  in  the  */ 

991  /*  original  code.  -lix  */ 

992  Fddi.T.Opr  -  500; 
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9®3  /•  The  losest  value  of  T_Req  becoaes  T_Opr  lor  tho  ring  as  a  whole.  */ 
994  11  (T.Req  <  Fddi.T.Opr  1 1  Fddi.Claia.Start) 

(95  < 

996  /*  The  T.Req  lor  this  station  is  loser  than  any  other  to  date  */ 

997  /*  so  it  is  installed  in  the  T.Opr  variable.  */ 

998  Fddi.T.Opr  ■  T.Req; 

999  /•  The  flag  indicating  that  the  daia  process  is  just  */ 

1000  /*  beginning  say  nos  be  cleared.  */ 

1001  Fddi_Claia_Start  *  0; 

1002  > 

1003  /*  Request  a  sell  interrupt  Iron  the  Saulation  Kernel  at  the  current 

1004  /*  time  so  that  alter  all  stations  have  executed  their  claia  states,  */ 

1005  /*  they  can  proceed  with  initializations.  This  is  necessasary  */ 

1006  /*  because  some  initializations  are  based  in  the  value  ol  T.Opr  */ 

1007  /*  and  it  aust  therelore  be  known  that  all  stations  have  settled  */ 

1008  /+  on  a  linal  value.  */ 

1009  op.intrpt_schedule.sell  (op.sia.tiae  (),  0); 


1010  } 


1011  /**  blocking  alter  enter  executives  ol  unforced  state.  **/ 

1012  FSM.EXIT  (21.cp_lddi.BAc) 


1013  /•*  state  (CLAIM)  exit  executives  **/ 

1014  FSM.STATE.EXIT.UIFORCED  (10,  statelO.exit.exec,  "CUIM") 

1015  < 

1016  > 


1017  /**  state  (CLAIM)  transition  processing  *•/ 

1018  FSM.TRAISIT.FORCE  (0,  stateO.enter.exec,  ;) 

1019  - - */ 


1020  > 


1021  FSM.EXIT  (10,cp.lddi.aac) 

1022  > 
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1023  void 

1024  cp.fddi.aac.avar  (pra.ptr , Tar.naaa , var.p.ptr) 

1025  cp_fddi_aac_atat«  *pr»_ptr; 

1026  char  *rar_naaa ,  **var_p_ptr; 

1027  { 

1028  Fll  (cp_fddi_aac_aYar  (pra.ptr) ) 

1029  *Tar_p_ptr  «  V0S_«IL; 

1030  if  (Voa.String.Equal  (“ring  idM  t  tit.dum)) 

1031  •»ar_p_ptr  ■  (char  *)  (kpra_ptr->«T_ring_id) ; 

1032  if  (Vos_String_Equal  ("THT"  .  Tar.naaa)) 

1033  *Tar_p_ptr  »  (char  ♦)  (*pra_ptr->BT_THT) ; 

1034  if  (¥oa_String_Equal  ("T_RaqM  ,  Tar.naaa)) 

1035  *rar_p_ptr  «  (char  *)  (*pra.ptr->av_T_Raq) ; 

1036  if  (Vo«_String_Equal  (MT_PriM  ,  Yar_naaa» 

1037  *»ar_p_ptr  »  (char  *)  (pr*_ptr->«v_T_Pri) ; 

1038  if  (Voa_String_Equal  ("ay.objid-  ,  Tar.naaa)) 

1039  *Tar_p_ptr  *  (char  *)  (*pra_ptr->av_ay_obj id) ; 

1040  if  (Vos_String_Equal  O'apaHn.tokan"  ,  Tar.naaa)) 

1041  *Tar_p_ptr  »  (char  *)  (kpr*_ptr->sv_»paun_token) ; 

1042  if  (Voa_String_Equal  ("ay_addresa“  ,  var.naae) ) 

1043  *Tar_p_ptr  *  (char  *)  (hpr*_ptr->aT_ny_addrasi) ; 

1044  if  (Voa_String_Equal  (“orig_arc_addrM  ,  Tar.naaa)) 

1045  *»ar_p_ptr  *  (char  *)  (ipr»_ptr->«Y_orig_«rc_addr) ; 

1046  if  (Voa_String_ Equal  ("tk.pkptr"  ,  Tar.naaa)) 

1047  *Yar_p_ptr  *  (char  *)  (kpr«_ptr->«T_tk_pkptr) ; 

1048  if  (Voa_String_Equal  ("ayac_baad»idthM  ,  Tar.naaa)) 

1049  *»ar_p_ptr  *  (char  *)  (*pra_ptr->av_aync_bandwidth) ; 

1050  if  (Voa_String_Equal  ("aync.pc"  ,  Tar.naaa)) 

1051  *»ar_p_ptr  *  (char  *)  (*prs_ptr->av_aync_pc) ; 

1052  if  ( V oa_St r ing_Equal  ("restricted"  ,  var.naae)) 

1053  *var.p_ptr  *  (char  *)  (*prs.ptr->av_reitricted) ; 

1054  if  (Voa.String.Equal  ("rea_peer"  ,  var.naae)) 

1055  *var_p_ptr  *  (char  *)  (ftprs.ptr->sv_rea_peer) ; 

1056  if  (Vo«_String_Equal  ("tk_ragiatar«dH  ,  var.naae)) 

1067  *Tar_p_ptr  «  (char  •)  (tpra.ptr->av_tk.regiatered) ; 

1068  if  (Voa_String_Equal  (Mto_llc_ici_ptrM  ,  var.aaaa) ) 

1059  *Tar_p_ptr  «  (char  *)  (*pra_ptr->av.to_llc_ici_ptr) ; 

1060  if  (Voa .String JBqual  (*'tk_trace_onM  ,  Tar.aaaa) ) 

1061  •rar.p.ptr  «  (char  *)  (kpra_ptr->»v_tk_traca_on) ; 

1062  FOOT; 

1063  > 


1064  void 

1065  cp.fddi_aac.diag  () 

1066  { 
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1037  /*  Pack«t*  and  ICZ's  •/ 

1068  Packet*  mac.f raae.ptr ; 

1069  Packet*  pdu_ptr; 

1070  Packet*  pkptr; 

1071  Packet*  data_pkptr; 

1072  lei*  ici_ptr; 

1073  /•  Packet  Fields  and  Attributes  */ 

1074  int  req_pri,  svc.class,  req_tk_ class ; 

1076  int  frame .control,  src.addr,  dest.addr; 

1076  int  pk_l*n ,  pri.level; 

1077  /•  Token  -  Related  */ 

1078  int  tk_usable,  res.station,  tk_ class; 

1079  int  current.tk.class ; 

1080  double  accun_sync; 

1081  /•  Timer  -  Related  */ 

1082  double  tx.time,  timer .remaining,  ac cum. band width; 

1083  double  tht. value; 

1084  /*  Miscellaneous  */ 

1085  int  i; 

1086  int  spasn_station,  phy.arrival; 

1087  char  error.string  [612] ; 

1088  int  num.f rames.sent ,  num.bits.sent; 

1089  /*  26DEC93:  loop  management  variables,  used  in  RCV.TK  */ 

1090  /*  and  EICAP  states.  -lix  */ 


1091 

int 

IUH.PRI0S; 

1092 

int 

punt; 

1093 

int 

q_ check; 

1094  FI1  (cp.fddi.mac.diag  ()) 


1096  /*  Print  out  values  of  timers,  and  late  token  counter.  •/ 

1096  /•  Also  print  out  data  about  restricted  node.  */ 

1097  /•  (This  code  nay  be  executed  by  the  simulation  debugger  */ 

1098  /*  by  invoking  the  command  'nodprint').  •/ 

1099  sprintf  (strO,  "Timers  (count  upvards):  TRT  (%.9g),  THT  (%.9g)H, 

1100  f ddi.t imer.value  (TRT),  fddi.timer. value  (THT)); 

1101  sprintf  (strl,  "Late.ct  (Xd)H,  Late.Ct); 

1102  op_prg_odb_print_najor  (strO,  strl,  OPC.IIL); 

1103  if  (restricted) 

1104  sprintf  (strO,  "token  is  in  restricted  dialog  mith  (Xd)\n",  res.peer) 

1105  else  sprintf  (strO,  "token  is  unrestrictedNn"); 
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1106  op_prg_odb_pr int _ma j or  (strO,  OPC.IIL) ; 


1107  FOOT; 

1108  > 


1100  void 

1110  cp.f ddi.s^c.t  erainat •  () 

1111  { 

1112  /•  Packet*  and  ICX's  */ 

1113  Packet*  nac.2rane.ptr; 

1114  Packet*  pdu.pt r; 

1115  Packet*  pkptr; 

1116  Packet*  data_pkptr; 

1117  Ici*  ici.ptr; 

1118  /*  Packet  Fields  and  Attributes  */ 

1110  int  req_pri,  svc.dass,  req_tk_claas ; 

1120  int  Iran*. control,  src.addr,  dest.addr; 

1121  int  pk_len,  pri.level; 

1122  /•  Token  -  Related  •/ 

1123  int  tk.usable,  res.station,  tk.dass; 

1124  int  current _tk_ class ; 

1126  double  accuse  sync; 

1126  /*  Tiaer  -  Related  */ 

1127  double  tx.tine,  tiner.remaining ,  accum.bandwidth; 

1128  double  tht_ value; 

1120  /*  Miscellaneous  */ 

1130  int  i; 

1131  int  spawn. st at ion,  phy .arrival; 

1132  char  error. string  [612] ; 

1133  int  nua_f raaes.sent ,  nun.bits.sent ; 

1134  /*  26DEC03 :  loop  nanageaent  variables,  used  in  RCV.TK  */ 

1136  /*  and  EICAP  states.  -lix  */ 


1136 

int 

IUM.PRI0S; 

1137 

int 

punt; 

1138 

int 

q_cheek; 

1130  F2I  (cp.fddi.nac.terainat*  ()) 
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1140  FOOT; 

1141  > 


1142  Coapcode 

1143  cp.fddi_aac.init  (pr.state.pptr) 

1144  cp_fddi_aac_state  ♦♦pr.state.pptr ; 

1145  { 

1146  static  VosT_Ca_Obtype  obtypa  *  OPC.IXL; 

1147  FII  (cp.f ddi.nac.init  (pr_stats_pptr)) 

1148  if  (obtype  «  OPC.IIL) 

1149  -C 

1150  if  (Vos_Cataea_Register  ("proc  state  vars  (cp_fddi_aac)H, 

1151  sizeof  (cp.fddi.aac.state) ,  Vos.Iop,  t obtypa)  ==  VOSC.FAILURE) 

1152  FRET  ( 0PC_ C0MPC0DE_F A ILURE ) 

1153  > 

1154  if  ((epr.state.pptr  =  (cp.fddi.aac.statae)  Vos_Catmem_Alloc  (obtypa,  1))  ==  OPC.IIL) 

1155  FRET  (OPC.CONPCODE.FAILURE) 

1166  alsa 

1157  { 

1168  (*pr_state_pptr)->cnrrent_block  *  20; 

1169  FRET  ( OPC. COMP CODE .SUCCESS ) 

1160  > 

1161  > 


1162  /**  Tha  procaduraa  defined  in  this  section  serve  **/ 

1163  /•*  to  simplify  the  code  in  the  sain  body  of  the  **/ 

1164  /**  process  nodal  by  providing  primitives  for  tiaer  **/ 

1165  /**  nanipulation. .  *♦/ 

1166  static 

1167  fddi.tiaer.disable  (tiaer.ptr) 

1168  FddiT.Tiaer*  tiaer.ptr; 

1169  { 

1170  /*  if  the  tiaer  is  already  disabled,  do  nothing  */ 

1171  if  (tiaer.ptr->enabled) 

1172  { 

1173  /•  disable  the  tiaer  */ 

1174  tiaer_ptr->enabled  *  0; 

1176  /•  reassign  the  accnaulated  tine  so  far  ♦/ 

1176  tiaer.ptr->accna  »  op.sia.tiae  ()  -  tiner_ptr-> start  .tine; 

1177  > 

1178  > 
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1179  static 

1180  fddi. tiaer .enable  (tiaer.ptr) 

1181  FddiT.Tiaer*  tiaer.ptr; 

1182  < 

1183  /*  if  the  tiasr  is  already  enabled,  siaply  return  */ 

1184  if  (!tiaer_ptr->enabled) 

1185  { 

1186  /*  reenable  the  tiner  */ 

1187  tiaer.ptr->enabled  =  1; 

1188  /*  set  the  start  tiae  to  the  current  tine  */ 

1189  /*  less  the  accuaulated  tiae  so  far  */ 

1190  tiaer_ptr->at art .tiae  »  op_sia_tiae  ()  -  tiaer_ptr->accua; 

1191  > 

1192  > 

1193  static 

1194  fddi.tiner.expired  (tiaer.ptr) 

1195  FddiT.Tiaer*  tiaer.ptr; 

1196  { 

1197  if  (fddi_tiaer.reaaining  (tiner _ptr)  <=  0.0) 

1198  return  1; 

1199  else  return  0; 

1200  > 

1201  static 

1202  double 

1203  fddi_tiaer_reaaining  (tiaer.ptr) 

1204  FddiT.Tiaer*  tiaer.ptr; 

1205  i 

1206  /*  if  the  tiaer  is  enabled,  update  the  accuaulated  tiae  */ 

1207  if  (tiaer.ptr->enabled) 

1208  { 

1209  t iner_ptr->accun  «  op.sia.tiae  ()  -  tiaer.ptr->start_tiae; 

1210  > 

1211  /*  return  the  tiaer  reaaining  before  expiration  */ 

1212  /*  a  non-positive  value  indicates  an  expired  tiaer  */ 

1213  return  (tiaer_ptr->target_accua  -  tiaer _ptr->accua) ; 

1214  > 

1216  static 

1216  double 

1217  fddi.tiaer. value  (tiaer.ptr) 

1218  FddiT.Tiaer*  tiaer.ptr; 

1219  { 

1220  /*  if  the  tiaer  is  enabled,  update  the  accuaulated  tiae  */ 

1221  if  (tiaer.ptr->enabled) 

1222  { 

1223  tiaer _ptr->accua  ■  op.sia.tiae  ()  -  tiaer.ptr->start_tiae; 
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1224  > 


122S  return  (timer_ptr->accum) ; 

1224  > 

1227  static 

1228  fddi.tiner.set.Yalue  (tiner.ptr ,  Taint) 

1229  FddiT.Tiatr*  tiatr.ptr; 

1230  donblt  Taint; 

1231  { 

1232  timer_ptr->accua  =  Taint; 

1233  > 

1234 

1235  static 

1236  fddi.tiatr.copy  (froa.timer.ptr,  to.tiaer.ptr) 

1237  FddiT.Tiatr*  from_ti*er_ptr; 

1238  FddiT.Tiatr*  to.tiatr.ptr; 

1239  { 

1240  Voe.Copy.Hemory  (lroa.tiatr.ptr,  to.tiatr.ptr, 

1241  siztof  (FddiT.Tiatr)); 

1242  > 

1243  static 

1244  fddi.tiaer.set  (tiatr.ptr,  duration) 

1245  FddiT.Tiatr*  tiatr_ptr; 

1246  < 

1247  /•  clear  ont  accumulated  tint  */ 

1248  tiatr_ptr->accua  *0.0; 

1249  /*  assign  the  timer  duration  */ 

1250  tia*r_ptr->targot_accnm  *  duration; 

1251  /*  assign  the  current  time  */ 

1252  tia*r_ptr->start_tint  *  op.sim.timt  (); 

1253  /*  enable  the  timer  */ 

1254  timer _ptr->enabled  *  1; 

1256  > 

1266  static 

1257  FddiT.Tiatr* 

1258  fddi.tiaer.creatt  () 

1259  { 

1260  FddiT.Tiatr*  tiatr.ptr; 

1260  /*  allocate  ataory  f or  a  timer  structure  */ 

1261  tiaer.ptr  *  (FddiT.Tiatr*)  aalloc  (siztof  (FddiT.Tiatr)); 

1262  /*  initialize  the  timer  in  the  disabled  node  */ 

1263  fddi.tiaer.init  (tiatr.ptr); 
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1364  /•  return  the  timer' e  address  */ 

1366  return  (timer _ptr) ; 

1366  > 

1367  static 

1368  fddi_tiaer_init  (tiaer_ptr) 

1368  FddiT.Tiaer*  tiaer.ptr; 

1370  { 

1371  /*  the  tiaer  is  initially  disabled  •/ 

1373  tiaer _ptr->enabled  =  0; 

1373  /•  the  accumulated  tiae  is  zero  */ 

1374  tiaer.ptr->accua  *  0.0; 

1375  /•  the  target  accumulated  tiae  is  infinite  */ 

1376  tiaer_ptr->target_accua  =  VOS_DOUBLE_IIFI*ITY ; 

1377  /•  the  start  tiae  is  nou  */ 

1378  tiaer _ptr->start_tiae  =  op_sia_tiae  (); 

1379  > 

1380  static 

1381  fddi_station_r agister  (address,  objid) 

1383  Objid  objid; 

1383  int  address; 

1384  { 

1386  /*  Fill  an  entry  in  the  table  vhich  maps  station  */ 

1386  /•  addresses  to  0P1ET  object  ids  */ 

1387  FI1  (lddi_mtation_r agister  (address,  objid)) 

1388  Fddi.iddress.Table  [address]  *  objid; 

1388  /♦  Keep  track  of  total  number  of  stations  on  the  ring  •/ 
1390  Fddi_Iua_S tat ions ++; 

1381  FOOT 
1383  } 

1393  static 

1394  fddi_tk_register  () 

1396  < 

1396  /*  Register  the  station's  intent  to  use  the  token.  */ 

1397  /•  This  should  be  done  uhenever  an  unregistered  */ 

1398  /*  station  obtains  neu  data  to  transmit.  */ 

1399  FI1  (fddi.tk.regsister  ()) 

1300  /*  increase  the  nuaber  of  registered  stations  */ 

1301  Fddi_lua_kegistered++; 

1303  /•  if  the  token  ie  currently  blocked,  unblock  it  */ 

1303  if  (Fddi_Tk_Blocked  U  Fddi_Tk_ Accelerate) 

1304  { 
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1305  fddi.tk.unblock  (); 

1305  > 

1307  FOOT 

1308  > 

1309  static 

1310  fddi_tk_deregister  () 

1311  < 

1313  /*  Cancel  the  station's  intent  to  nse  the  token.  */ 

1313  /•  This  should  be  done  whenever  a  registered  */ 

1314  /•  station  exhausts  its  trsnsnittable  data.  */ 

1315  FZI  (fddi_tk_deregsister  ()) 

1316  /•  decrease  the  nuaber  of  registered  stations  */ 

1317  Fddi_Iun_Registered— ; 

1318  FOOT 

1319  > 

1320  static 

1321  fddi.tk_indicate_no.data  (token,  address,  delay) 

1322  Packet*  token; 

1323  int  address; 

1324  double  delay; 

1325  i 

1326  FI1  (f ddi_tk_indicate.no .data  (token,  address,  delay)) 

1327  /•  The  calling  station  is  indicating  that  it  has  captured  •/ 

1328  /•  the  token,  but  has  no  data  to  send.  If  no  other  stations  */ 

1329  /*  have  data  to  send  either,  the  token  awy  be  blocked  to  gain  */ 

1330  /•  siaulation  efficiency.  */ 

1331  if  (Fddi.Iua.Registered  «■  0  ftft  Fddi.Tk.Accelerate) 

1332  { 

1333  fddi.tk.block  (token,  address); 

1334  > 

1335  else-C 

1336  /*  If  the  token  cannot  be  blocked,  send  it  into  the  ring.  •/ 

1337  op.pk.send.delayed  (token,  FDOI_PIY_STRN_OUT, 

1337  delay  *  Fddi_Prop_0elay) ; 

1338  > 

1339  FOOT 

1340  > 

1341  static 

1342  fddi.tk.block  (token,  address) 

1343  Packet*  token; 

1344  int  address; 

1345  < 

1346  Int  i; 
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1347  FZI  (fddi_tk_block  (token,  address)) 

1348  /•  Record  the  address  of  the  blocking  station  and  blocking  time.  */ 

1349  Fddi.Tk.Block.Base.Time  *  op.sim.time  (); 

1360  Fddi.Tk_Block_Base.Stat ion  *  address; 

1361  if  (tk_trace_on  «  OPC.TRUE) 

1362  { 

1363  sprint!  (strO,  "Blocking  Token:  station  (Xd),  tine  (X.9f)“, 

1364  Fddi_Tk_Block_Base_Station,  Fddi.Tk_Block_Baoe.Tine) ; 

1356  op_prg_odb_pr int _aa j or  (strO,  0PC.MIL); 

1368  > 

1367  /*  Indicate  that  the  token  is  blocked  */ 

1368  Fddi_Tk_Blocked  *  1; 

1359  /*  discard  the  token  packet;  another  one  sill  be  */ 

1360  /*  created  shen  the  token  is  unblocked.  */ 

1361  op_pk_destroy  (token); 

1362  /*  Cancel  TRT  timers  at  all  MAC  interfaces;  otherwise  these  */ 

1363  /*  timers  may  continue  to  ezpitr  during  the  idle  period,  */ 

1364  /•  generating  unnecessary  events.  */ 

1366  if  (tk_trace_on  »■=  OPC.TRUE) 

1366  { 

1367  sprintf  (strO,  "Canceling  timers  for  (Xd)  stations",  Fddi_lum_Stations) ; 

1368  op_prg_odb_print_major  (strO,  OPC.IIL); 

1369  > 

1370  for  (i  »  0;  i  <  Fddi.Ium.Stations;  i++) 

1371  -C 

1372  /*  Retain  the  time  at  vhich  the  TRT  mould  have  expired;  */ 

1373  /•  this  is  used  for  calculations  vhen  the  token  is  ♦/ 

1374  /*  reinjected  into  the  ring.  */ 

1375  Fddi.Trt_Exp.Time  [i]  *  op.ev.time  (Fddi.Trt.Handle  [i] ) ; 

1376  /•  Cancel  the  TRT  expiration  event.  */ 

1377  op.ev.cancel  (Fddi.Trt.Handle  [i] ) ; 

1378  > 

1379  FOUT 

1380  > 

1381  static 

1382  fddi.tk.unblock  () 

1383  { 

1384  double  elapsed_time,  first.tk.rx,  last_tk_rx; 

1386  double  tk_lap_time,  next .time,  current.time; 

1386  double  dbl_num_hops ,  num_tk_rx,  floor  (),  ceil  (); 

1387  int  i,  num.hops,  next.station; 
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1388  FZI  (fddi_tk_unblock  ()) 


1389  /*  rasat  tha  blocking  indicator  •/ 

1390  Fddi_Tk_Blockad  •  0; 

1391  /*  Cot  tha  currant  tina,  usad  for  nany  calculations  balow  */ 

1392  currant.tiaa  *  op.aim.tima  (); 

1393  if  (tk_traca_on  ■*  OPC.TRUE) 

1394  { 

1395  sprintf  (strO,  "Unblocking  tokaa  for  ring  (%d)",  ring_id); 

1396  op_prg_odb_pr int _ma j  or  (atrO ,  OPC.IIL); 

1396  > 

1397  /a  For  all  stations  on  tha  ring,  adjust  TRT  tiaar  and  Lata.Ct  flag.  */ 

1398  for  (i  *  0;  i  <  Fddi.Iua. Station#;  i++) 

1399  { 

1400  if  (tk.traca.on  «  0PC_TRUE) 

1401  { 

1402  sprintf  (strO,  "adjusting  stata  of  station  Old)" ,  i); 

1403  op_prg_odb_print_ainor  ("",  strO,  OPC.IIL); 

1404  > 

1405  /*  Calculata  nunbar  of  hops  saparating  station  i  f roa  block  basa  station.  */ 

1406  /*  In  spacial  casa  whara  i  is  tha  basa  station,  tha  tokan  must  run  a  full  */ 

1407  /*  lap  bafota  raturning.  */ 

1408  if  (i  !■  Fddi.Tk.Block.Basa.Station) 

1409  { 

1410  nua_hops  ■  (i  -  Fddi_Tk_Block_Basa_Station)  Y.  Fddi_Iun_Stations; 

1411  if  (nuajiops  <  0) 

1412  nua_hops  *  Fddi_lua_Stations  +  nua.hops; 

1413  > 

1414  alsa  nua_hops  *  Fddi_lun_Stations; 

1415  /*  Calculata  first  tins  at  vhich  tokan  would  hava  baan  racaived  by  station  i. 

1416  /•  Iota  that  initial  ralaasa  of  tokan  froa  basa  station  takas  a  diffarant  */ 

1417  /*  amount  of  tiaa  than  rapeating  of  tokan  by  othar  stations.  Thus,  tha  first  •/ 

1418  /•  hop  is  assuaad,  and  tha  basa  tiaa  is  angaantad  by  tha  tiaa  raquirad  to  •/ 

1419  /•  coaplata  it.  */ 

1420  f irst_tk_rx  ■  Fddi_Tk.Block_Basa_Tiaa  ♦  FDDIC_T0KE1_TX_TIME  +  Fddi_Prop_Dalay  ♦ 

1421  (nua.hops  -  1)  *  Fddi_Tk_Hop_Delay ; 

1422  if  (tk_traca_on  ■*  OPC.TRUE) 

1423  { 

1424  sprintf  (strO,  "station  is  Old)  hops  froa  basa",  nua.hops); 

1425  sprintf  (strl,  "first  racaipt  of  tokan  would  ba  at  (%.9f)”,  f irst.tk.rz) ; 

1426  op_prg_odb_print .minor  (strO,  strl,  OPC.IIL); 

1427  > 

1428  /*  Casa  1:  tha  tokaa  would  not  yat  hava  baan  racaivad  by  station  i.  */ 

1429  if  (first.tk.rx  >  currant. tin*) 


1430  { 

1431  /•  Case  la:  the  TRT  at  station  i  would  not  yet  have  expired.  */ 

1432  if  (Fddi.Trt.Exp.Tiae  [i]  >  current.tiae) 

1433  { 

1434  /•  Late.Ct  reaains  at  its  original  value;  only  the  TRT  needs  */ 

1435  /*  to  be  started  again,  with  the  saae  expiration  tine .  */ 

1430  TRT.SET  (i.  Fddi.Trt.Exp.Tiae  [i]) 

1437  if  (tk.trace.on  «  OPC.TRUE) 

1438  { 

1439  sprintf  (strO,  "Restoring  TRT  to  previous  exp.  tiae  (%.9f)",  Fddi_Trt_Exp_Tiae  [i]); 

1440  op_prg_odb_print_»inor  ("Token  would  not  be  received  and  TRT  not  expired",  strO,  0PC_IIL); 

1441  } 

1442  > 

1443  /*  Case  lb:  the  TRT  at  station  i  would  have  expired.  */ 

1444  else 

1445  { 

1446  /*  Late.Ct  would  have  been  set;  also  the  tiaer  would  have  been  rescheduled  */ 

1447  /*  for  an  entire  TTRT  at  the  tiae  of  expiration.  */ 

1448  Fddi.Late.Ct  [i]  *  l; 

1449  TRT.SET  (i,  (Fddi_T_0pr  ♦  Fddi_Trt_Exp_Tine  [i])) 

1450  if  (tk_trace_on  **  0PC_TRUE) 

1451  { 

1452  sprintf  (strO,  "Restoring  TRT  to  proper  exp.  tiae  (%.9f)",  Fddi_T_0pr  +  Fddi.Trt.Exp.Tiae  C 

1453  op_prg_odb_print_ainor  (“Token  would  not  be  received  and  TRT  would  have  expired",  strO,  OPC 

1454  > 

1455  > 

KdO  > 

1457  /*  Case  2:  the  token  would  have  been  received  (perhaps  aore  than  once).  */ 

1458  else 

1459  { 

1460  /*  Calculate  the  nuaber  of  ti^es  the  token  would  have  been  received  */ 

1461  /*  not  including  the  first  receipt.  */ 

1462  tk.lap.tiae  *  Fddi_Tk_Hop_Delay  *  Fddi.lua.Stations; 

1463  nua_tk_rx  ■  floor  ((current. tiae  -  first.tk.rx)  /  tk.lap.tiae); 

1464  /•  Calculate  the  latest  tiae  at  which  the  token  would  have  been  received.  */ 

1466  last.tkjrx  *  first_tk_rx  +  (nua.tk.rx  *  tk.lap.tiae) ; 

1466 

1467  /*  Clear  Late.Ct  and  schedule  tiaer  to  expire  at  last  receipt  of  token  */ 

1468  /*  plus  one  full  TTRT.  */ 

1469  Fddi.Late_Ct  [i]  «  0; 

1470  TRT.SET  (i,  (last.tk.rx  +  Fddi.T.Opr)) 

1471  if  (tk_trace_on  ■*  OPC.TRUE) 

1472  < 

1473  sprintf  (strO,  "token  received  (%g)  tines,  last  receipt  at  (%.9f)”, 

1474  nua.tk.rx  *  1.0,  last.tk.rx); 

1476  sprintf  (strl,  "Restoring  TRT  to  proper  exp.  tiae  (%.9f)". 
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1476  last_tk_rx  +  Fddi.T.Opr) ; 

1477  op _prg_odb_print .minor  (“Token  would  have  been  received;  Late.Ct  is  cleared", 

1478  atrl,  strO,  OPC.HIL); 

1479  > 

1480  > 

1481  > 

1482  /•  coapnte  the  tine  since  the  token  was  blocked  */ 

1483  elapsed. tine  *  current. tine  -  Fddi_Tk_Block_Base_Ti*e; 

1484  /e  compute  the  nunber  of  hops  completed  on  the  ring.  For  the  first  hop  */ 

1485  /*  the  token  is  transmitted  directly,  not  repeated.  For  all  remaining  */ 

1486  /*  hops,  the  delay  is  the  station  latency  pins  the  propagation  delay.  */ 

1487  /*  Thus,  the  first  hop  is  assumed,  and  the  remaining  time  for  additional*/ 

1488  /*  hops  is  computed  beginning  at  the  time  where  the  token  enters  the  */ 

1489  /*  base  station's  downstream  neighbor.  */ 

1490  dbl.num.hops  *  1.0  + 

1491  (elapsed_time  -  FDDIC.TOKEI.TX.TIME  -  Fddi_Prop_Delay)  /  Fddi_Tk_Hop_Delay; 

1492  /*  If  the  token  was  unblocked  in  less  time  than  it  would  have  taken  to  */ 

1493  /*  be  fully  transmitted  by  the  base  station,  dbl.num.hops  will  be  */ 

1494  /*  negative.  However,  1  full  hop  would  still  be  required  before  the  */ 

1495  /*  token  could  be  used,  since  the  station  had  already  committed  to  */ 

1496  /*  issuing  the  token.  Thus,  the  actual  of  nunber  <  hops  should  never  */ 

1497  /*  be  less  than  1.  If  it  is,  round  it  to  1.  */ 

1498  if  (dbl_num_hops  <  1.0) 

1499  dbl.num.hops  *  1.0; 

1500  else 

1501  { 

1502  /•  In  all  other  cases,  round  the  number  of  hops  up  to  the  nearest  */ 

1503  /*  integer  value.  If  already  an  integer,  then  leave  as  is.  */ 

1604  dbl_num_hops  =  ceil  (dbl_num_hops) ; 

1505  > 

1506  /*  Obtain  an  integer  equivalent  of  dbl.num.hops.  •/ 

1507  num_hops  *  dbl.num.hops; 

1608  /*  Based  on  the  number  of  hops  and  the  base  station,  compute  the  */ 

1609  /*  next  station  where  the  token  will  appear.  */ 

1610  next.station  ■  (num.hops  *  Fddi.Tk_Block_Base.Stat ion)  X  Fddi.Ium.Stations; 

1611  /*  Compute  the  time  at  which  the  token  will  appear  there.  */ 

1512  /*  Again,  assume  the  first  hop  occurred,  and  measure  time  */ 

1513  /*  from  there  forward.  */ 

1614  next.time  ■  Fddi_Tk_Block.Base.Time  ♦  (FDDIC.TOKEI.TX.TIME  ♦  Fddi.Prop.Delay)  + 

1615  (dbl_num_hops  -  1.0)  *  Fddi.Tk.Hop.Delay; 

1616  if  (tk.trace.on  »«  OPC.TRUE) 

1617  < 

1618  sprintf  (strO,  "Re-introducing  token  at  station  (Xd),  at  time  (X.9f)H, 

1519  next.station,  next.time); 
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1520  op_prg_odb_print_*inor  (strO,  OPC.IIL); 

1521  > 

1522  /*  rtisjtct  the  token  at  that  station  */ 

1623  fddi_tk_inj ect  (next.station,  next.tiae); 

1524  FOOT 

1525  > 

1526  static 

1527  fddi_tk_ inject  (address ,  arv.tiae) 

1628  int  address; 

1529  double  arv.tiae; 

1530  i 

1531  /e  Ee- insert  the  token  into  the  ring  alter  an  idle  period.  */ 

1632  FXI  (fddi.tk. inject  (address,  arv.tiae)) 

1533  /*  The  token  is  recreated  and  reinserted  onto  the  ring  */ 

1534  /*  at  the  specified  station  which  is  not  necesssarilj  the  */ 

1536  /*  station  now  requesting  the  token.  */ 

1536  /*  The  station  which  will  reinsert  the  token  is  */ 

1537  /e  asked  to  do  so  by  means  of  a  remote  interrupt.  */ 

1638  op_intrpt_schedule_r emote  (arv_time,  FDDIC_TK_IIJECT, 

1539  Fddi_Address_Table  [address]); 

1640  FOOT 

1541  > 

1542  static 

1543  fddi_load_fraae_attrs  (dest_addr_ptr,  svc_class_ptr,  pri_level_ptr) 

1544  int  edest.addr.ptr,  *svc_class_ptr,  *pri_level_ptr; 

1546  { 

1546  int  VUN_PRI0S,  i;  /*  26JAI94  */ 

1547  Packet  epkptr; 

1548  F1V  (fddi_load_frane_attrs  (dest.addr.ptr,  svc_class_ptr,  pri_level_ptr) ) 

1549  /*  reaove  next  packet  in  queue  */ 

1660  /*  27DEC04:  loop  structure  superimposed  to  handle  a  bank  of  subqueues.  */ 


1551  /*  Extract  the  packet  with  the  highest  priority,  that  is,  the  packet  */ 

1552  /*  at  the  head  of  the  highest-nuabered  subqueue  containing  packets.  */ 

1553  /•  lots  that  the  C  language  vector  numbering  convention  nuabers  the  */ 

1554  /e  subqueues  froa  0  te  7,  while  FDD I  convention  is  to  nuaber  the  */ 

1666  /•  corresponding  asynchronous  priorities  froa  1  to  8.  This  is  */ 

1656  /•  reconciled  in  the  statistical  outputs  available  in  the  Analysis  */ 

1557  /*  Editor,  where  labels  are  assigned  accordingly.  Also  note  that  */ 

1658  /*  synchronous  traffic  is  assigned  priority  8  as  an  artifice  to  allow  */ 

1569  /e  routing  through  a  separate  subqueue,  by  which  statistics  nay  be  */ 

1660  /*  gathered  for  traffic  by  class  and  by  priority.  -Six  */ 

1561  lUM.PRIOS  =  9; 

1562  for  (i  •  Hm_PRI0S  -  1;  i  >  -1;  i— ) 
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1663 

1664 

1665 

1666 
1667 
1568 

1669 

1670 

1671 
1572 


{ 

if  (op_subq_stat  (i,  0PC_QSTAT_PKSI2E)  >0.0) 

{ 

pkptr  ■  op_»ubq_pk_r**or«  (i,  OPC_QPOS_HEAO) ; 
break; 

> 

> 

/•  extract  the  fields  of  interest  ♦/ 
op_pk_afd_g«t  (pkptr,  "dest.addr",  dest_addr_ptr) ; 
op_pk_nfd_get  (pkptr,  "svc.dass",  svc_dass_ptr) ; 


1673  /*  only  read  priority  level  if  fraae  is  asynchronous  */ 

1674  if  (*svc_class_ptr  «•  FDDI_SVC_ASY*C) 

1576  op_pk_nfd_get  (pkptr,  Hpri",  pri_level_ptr) ; 

1576  /*  replace  the  packet  on  the  proper  snbqnene  */ 

1577  op_subq_pk_insert  (i,  pkptr,  OPC.QPQS.HEAD) ; 


1578  FOOT 

1579  > 
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APPENDIX  C 

CPNI  SINK  “C”  CODE 

“cp_fddi_sink.pr.c” 


The  line  numbering  in  this  appendix  is  within  this  thesis  only,  and  does  not  corre¬ 
spond  with  that  seen  in  OPNBT’s  text  editors. 

1  /*  Process  Bodsl  C  fora  fils:  cp.fddi.sink.pr.c  */ 

2  /*  Portions  of  this  fils  Copyright  (C)  NIL  3,  Inc.  1992  */ 


2  /•  0P1ET  systsn  definitions  */ 

3  # include  <opnet.h> 

4  # include  "cp.fddi_8ink.pr .h" 

E  FSH_EXT_DECS 


6  /*  Header  block  */ 

7  /♦  Globals  */ 

8  / *  array  format  installed  20JAI94;  positions  0-7  represent  the  asynch  priority 

9  /*  represents  synch  traffic,  and  grand  totals  are  as  given  in  the  original. 


10  fdefine  PRIORITIES  8  /*  20JAI94  */ 

11  fdefine  XMITTER.OIE  0  /*10HAY94*/ 

12  fdefine  IMITTER.TVO  1 

13  fdefine  XMITTER.THREE  2 

14  fdefine  XNITTER_F0UR  3 


15  static  /*  05FEB94  */ 

18  doable  fddi_sink_accan_delay  *  0.0; 

17  static  /*  05FEB94  */ 

18  doable  f ddi_sink_accun_delay_a [PRIORITIES + 1] *{0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.C 

19  static  /*  05FEB94  */ 

20  int  fddi.sink_total.pkts  *  0; 

21  static  /•  0SFEB94  */ 

22  int  fddi.sink_total_pkts.aCPRIORITIES  +1]  «{0,  0,  0,  0,  0,  0,  0,  0,  0>; 

23  static  /*  05FEB94  */ 

24  doable  fddi.sink.total.bits  *  0.0; 

25  static  /*  05FEB94  */ 

26  doable  fddi.sink_total_bits_aCPRI0RITIES-M]»C0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0, 

26  static  /*  05FEB94  */ 

27  doable  fddi_sink_peak_delay  *  0.0; 

28  static  /*  0SFEB94  */ 

29  doable  f ddi_sink_peak_delmy_a[PRI0RITIES+2] «{0 . 0 ,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0, 


levels,  PRIORI 


,  0.0,  0.0}; 


0.0,  0.0}; 


0.0,  0.0}; 
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/•  05FEB94  */ 


30  itatle 

31  1st  fddi_sink_scalar .write  *  0; 

33  static  /*  05FEB94  */ 

33  1st  pri_s«t  >20;  /*  20JAI94  */ 

34  static 

35  int  eubq_ index  «  0;  /*  5APR94  */ 

36  static 

37  int  prev.src_addr[4]>{0,  1,  2,  3>;  /* 2EAPR94*/ 

38  double  buffer [4] *{0.0, 0.0, 0.0,0. 0>;  /*10MAY94*/ 


30  /*  statistics  ussd  for  CDL  throughput  */ 

40  static  /*  20APR94  */ 

41  int  fddilpl.total.pkts  ■  0; 

42  static 

43  int  fddilpl.total.pkte.a [PRIORITIES  41]  *  {0,  0,  0,  0,  0,  0,  0,  0,  0>; 

44  static 

45  double  fddilpl.total.bits  >0.0; 

46  static 

47  double  fddilpl_total_bits_a[PRIORITIES  +  1]  >  {0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0,  0.0}; 


48/*  Externally  defined  globals.  •/ 

49  extern  double  fddi_t_opr  □; 

50  /*12JAI94: attributes  froa  the  Environment  file  */ 

61  double  Offered_Load;  /*  12JAI94  */ 

52  double  Asynch.Offered_Load;  /*  12JAI94  */ 

53  /*  transition  expressions  */ 

54  f define  EID_0F_SIH  op_intrpt_type()  «  0PC_I*TRPT_EIDSIM 


55  /•  State  variable  definitions  */ 

56  typedef  struct 

67  { 

58  FSH.STS.STATE 

69  Gshandle 

sv_thru_gshandle ; 

80  Gshandle 

sv_a_delay .gshandle ; 

61  Gshandle 

s v_et e.delay .gshandle ; 

62  Gshandle 

sv_thru_gshandle_a[10] ; 

63  Gshandle 

sv_n_delay_gahandle_a[lO] ; 

64  Gshandle 

sv_ete_delay_gshandle_a[9] ; 

66  Gshandle 

sv_t_gshandle ; 

66  Gshandle 

sv_t_gshandle_a[10] ; 

67  Objid 

«v_ay_id; 

68  }  cp_fddi_sink_state; 

89  fdefine  pr_state_ptr 

( ( cp_f ddi.s ink.stat 
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70  tdefine  thm_gs handle 

71  #def in#  m_dalay_gahandla 

72  tdefine  ete_delay_gshandle 

73  fdefine  thru_g#handle_a 

74  tdefine  s_delay_gahandle_a 
76  fdefine  ete_delay_gshandle_a 

76  fdefine  t_g a handle 

77  fd#fin#  t_gahandl#_a 

78  fdefin#  »y_id 


pr_atate_ptr->av_thru_gahandle 

pr_state_ptr->sv_m_delay_gshandle 

pr_state_ptr->sv_ete_delay_gshandle 

pr_atat#_ptr->«v_thru_gahandle_a 

pr_state_ptr->sv_m_delay_gshandle_a 

pr_state_ptr->sv_ete_delay_gshandle_a 

pr_atate_ptr->«v_t_gshandle 

pr_state_ptr->aT_t_gahandla_a 

pr_atata_ptr->a»_*y_id 


78  /*  Process  model  interrupt  handling  procedure  */ 


80  void 

81  cp.fddi.sink  () 

82  { 

83  double  delay,  creat.time; 

84  Packet*  pkptr; 

86  Packet*  pkptrl  ;  /*6APR94*/ 

86  int  src.addr,  my.addr; 

87  int  dest.addr ; /* 14APR94*/ 

88  Ici*  fro*_mac_ici_ptr; 

89  donble  fddi_aink_ttrt ; 

90  int  xmit_aubq_ index ; /*6APR94*/ 

91  int  load_balance_code ;  /*6APR94*/ 

92  int  i,subq_no;  /*26APR94*/ 

93  int  index;  /*10MAY94  */ 


94  FSMJ»TER  (cp_fddi_sink) 

96  FSM_BLOCK_SWITCH 

{ 

97  /**  state  (DISCARD)  enter  executives  **/ 

98  FSM_STATE_EITER_UIFORCED  (0,  state0_enter_exec,  "DISCARD") 

99  { 

100  /•  determine  type  of  interrupt : 10NAY94  */ 

101  switch  (op_intrpt_type()) 

102  { 

103  case  0PC_IITRPT_STAT: 

104  /*  the  interrupt  is  caused  by  the  transmitters'  status  */ 
106  { 

106  index  =  op_intrpt_stat() ; 

107  switch (index) 

108  { 
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109  cut  XNXTTE&.0IE: 

110  { 

111  buffer [0]  ■  op_stat_local_read(XMnTER_OIE); 

112  break; 

113  > 

114  case  XMTTERJTVO: 

115  { 

lie  boiler [1]  «  op_stat_local_read(XMITTER_TVO) ; 

117  break; 

118  > 

119  case  XMITTER_THREE: 

120  i 

121  buffer [2]  *  op_stat_local_read(XMITTER_THREE) ; 

122  break; 

123  > 

124  case  XMTTER_FOUR: 

126  { 

120  buffer [3]  *  op_stat_local_read(XHITTER_FOUR) ; 

127  break; 

128  > 

129  default: 

130  { 

131  op_si»_end("***  FDDI-CDL  :  FATAL  ERROR" , "Unexpected  stat  interrupt","",""); 

132  > 

133  > 

134  break; 

135  > 

136  case  OPC.IITRPT.STRN: 

137  /•  the  interrupt  is  caused  by  the  incoming  packets  •/ 

138  { 

139  /•  get  the  packet  and  the  interlace  control  info  */ 

140  pkptr  ■  op_pk_get  (op_intrpt_»tm  ()); 

141  fron_nac_ici_ptr  *  op_intrpt_ici  (); 

142  /*  20JAI94:  get  the  packet's  priority  level,  which  */ 

143  /*  will  be  used  to  index  arrays  of  thruput  and  delay  */ 

144  /•  conputations .  */ 

145  /*  pri.set  «  op_pk_priority_get  (pkptr);  doesn't  work  here  */ 

146  op_pk_nfd_get  (pkptr,  "pri",  Apri.set);  /*  29JAX94  •/ 

147  /*  determine  the  tine  of  creation  of  the  packet  */ 

148  op_pk_nfd_get  (pkptr,  "cr.tine",  ftcreat.tiae) ; 

149  /*  18APR94: determine  the  destination  address  of  the  packet  */ 

150  op_pk_nfdLget  (pkptr,  "dest.addr",  tdest.addr); 

151  /*  20APR94: determine  the  source  address  of  the  packet  e/ 

162  op_pk_nfd_get  (pkptr,  "src.addr”,  ftsrc.addr); 

153  /•  7APR94: determine  id  of  own  processor  to  use  in  finding  */ 

154  /*  load  balancing  attribute  and  station  address  of  the  bridge  node  */ 
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155  my.id  ■  op_id_self(); 

156  /*  7APR94:  determine  which  load  balancing  algorithm  is  in  nss  */ 

157  op.ima.ob j _attr_get  (  my.id,  "load  balancing  algoritha",  tload.balance.code  ); 

158  /*  14APR94  :  also  get  ay  on  address  */ 

159  op_ima_obj_attr_get  (  my.id,  "station.address" ,  tmy.addr); 

160  /•  destroy  the  packet  */ 

161  /*  op.pk.destroy  (pkptr);  */ 

162  /*  03FEB94:  rather,  enqueue  the  packet.  This  sill  be  the  */ 

163  /e  first  step  toward  developing  a  LAI  bridging  structure.  */ 

164  /•  -lix  */ 

165  /•  op_subq_pk_ insert  (pri.set,  pkptr,  OPC.QPOS.TAZL) ;  */ 

166  /*  14APR94:  check  the  fraae  passed  to  "11c"  is  destined  for  */ 

167  /*  this  station.  If  it  is  destroy  the  packet  and  update  the  local  traffic  */ 

168  /•  statistics;  if  not,  allocate  the  packets  */ 

169  /*  to  the  transaitters  since  they  are  destined  for  the  reaote  lan  */ 

170  /*  update  also  incoaing  return  link  statistics  for  the  fraaes  */ 

171  /*  which  will  be  queued  in  llc.sink  to  be  sent  to  remote  lan.*/ 

172  /•  -Karayakaylar  */ 

173  if ( (dest.addr  **  my_addr) AA(src_addr  <  ay.addr)) 

174  < 

176  /•  add  in  its  size  */ 

176  fddi.sink_total.bits  +=  op_pk_total_size_get  (pkptr); 

177  fddi_sink_total_bits_a[pri_set]  ♦*  op_pk_total_size_g«t  (pkptr);  /*  20JAI-20APR94  */ 

178  /*  accumulate  delays  */ 

179  delay  *  op_sia_time  ()  -  creat.tiae; 

180  fddi_sink_accuaudelay  +=  delay; 

181  fddi_sink_aecua.delay_a[pri_set]  ♦*  delay;  /*  20JAI-20APR94  */ 

182  /•  keep  track  of  peak  delay  value  */ 

183  if  (delay  >  fddi_sink_peak_delay) 

184  fddi.sink.peak.delay  •  delay; 

186  /*  20JAI94:  keep  track  by  priority  levels  as  sell  23JAI-20APR94  •/ 

186  if  (delay  >  fddi.sink_peak_delay_aCpri.set]) 

187  fddi_sink_peak_delay_aCpri_set]  *  delay; 

188  op.pk.deetroy  (pkptr); 

189  /•  increment  packet  counter;  20JAI94  */ 

190  fddi_sink_total_pkts++; 

191  f ddi_sink_total_pkts_a [pri.set] ++ ; 

192  /*  if  a  multiple  of  25  packets  is  reached,  update  stats  */ 

193  /•  03FEB94:  [0]->[7]  represent  asynch  priorities  l->8,  */ 

194  /•  respectively;  [8]  represents  synchronous  traffic,  */ 
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196  /•  and  [9]  represents  overall  asynchronous  traffic. -liz  */ 

196  if  (fddi.sink_total.pkts  %  26  »■  0) 

197  < 

198  op_stat_global_srite  (thrn_gshandle, 

199  fddi_sink.total.bits  /  op.sia.tine  ()); 

200  op_stat_global_srite  (thru_gshandle_aCpri_set] , 

201  fddi.sink.total.bits.aCO]  /  op_sia_tiae()); 

202  op_stat_global_srite  (thru_gshandle_aCO] , 

203  fddi_sink.total.bits.aCl]  /  op_sia_tiae()) ; 

204  op_stat_global_vrite  (thru_gshandlo_a[l] , 

206  fddi.sink_total_bits_aCpri.set]  /  op.sia_tiae()) ; 

206  op.stat .global.vrite  (thra_gshandle_aC2] , 

207  fddi_sink_total_bits_aC2]  /  op_sia_tiae()>; 

208  op_stat_global_vrite  (thru_gahandla_a[3] , 

209  fddi_sink_total.bits.aC3]  /  op_sia_tiae()) ; 

210  op_stat_global_vrite  (thru_gahandla_a[4] , 

211  fddi.sink_total_bits.aC4]  /  op_sia_tiae()>; 

212  op_stat_global_vrite  (thru_gahandla_a[5] , 

213  fddi.sink.total_bits.aC6]  /  op_sia_tiae()) ; 

214  op_stat_global_arite  Cthru_gahandlo_a[6] , 

216  fddi_sink_total_bits_aC6]  /  op_sia.tiae()) ; 

216  op.stat _global_wr it*  (thrn_gshandle_aC7] , 

217  fddi_sink.total_bits.aC7]  /  op_sia_tiae()) ; 

218  op_stat_global_vrite  (thru_gshandle_aC8] , 

219  fddi_sink_total_bits_aC8]  /  op_sia_tiae()) ; 

220  /*  30JAI94 :  gather  all  asynch  stats  into  one  overall  figure  */ 

221  op_stat_global_«rite  (thru_gshandle_a[9] , 

222  (fddi.sink_total.bits  -  fddi_sink_total_bits_aC8])  / 

223  op_sia_tiae()) ; 


224 

/* 

(f ddi.s ink.t otal.b it s  _a  CO] 

+  fddi_sink.total_bits.aCl]  + 

*/ 

226 

/* 

fddi_sink_total_bits_aC2] 

+  fddi_sink_total_bits_aC3]  + 

*/ 

226 

/* 

fddi.siak_total_bits.aC4] 

♦  fddi_sink.total.bits.aC6]  + 

*/ 

227 

/* 

fddi_sink_total_bits_aC6] 

+  fddi_sink_total.bits.aC7])  / 

*/ 

228 

/* 

op.sia.tiaeO) ; 

*/ 

229  op_stat_global_vrite  (a_delay_gshandla , 

230  fddi.sink_acaia_delay  /  fddi.sink_total.pkts); 

231  op_stat_global_*rite  (a_delay_gshandle_aCO] , 

232  fddi_sink_accun_delay_aCO]  /  fddi.sink_total.pkts_a[0] ) ; 

233  op.stat .global .writ*  (a_delay_gshandle_aCl] , 

234  fddi_sink_accua_delay_aCl]  /  fddi_sink_total_pkts_aCl]); 

236  op.stat .global.vrite  (n_dalay_gahandla_a [2] , 

236  fddi.sink_accTm_delay.aC2]  /  f ddi_sink_total_pkts_aC2] ) ; 

237  op.stat .global.vrite  (a_delay.gshandle.aC3], 

238  fddi.sink_accTm_delay.aC3]  /  fddi.sink_total_pkts.aC3]); 
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239  op.stat .global. write  (m.delay .gshandle.a [4] , 

240  fddi_sink_accun_delay_aC4]  /  fddi_sink_total_pkts_aC4] ) 

241  op_atat_global_write  (m_delay .gshandle.a C5] , 

242  fddi_sink_accua_delay_aC5]  /  fddi_sink_total_pkts_a[5] ) 

243  op_stat_global_write  ( m_delay .gshandle.a [6] , 

244  fddi_sink_accua_delay_aC6]  /  fddi_sink_total_pkts_a(6] ) 

245  op_stat_global_write  (a_delay .gshandle.a (7] , 

246  fddi.sink.accua.delay.a [7]  /  fddi_sink_total_pkts_aC7] ) 

247  op.stat .global. write  (m_delay_gshandle_a [8] , 

248  fddi_sink_accua_delay_aC8]  /  fddi_sink_total_pkts_a[8] ) 


249  /*  30JAI94:  gather  all  asynch  stats  into  on*  figure  */ 

250  op_stat_global_write  (m_del ay .gshandle.a [9] , 

251  (fddi_sink_accuB_delay  -  lddi_»ink_accua_delay_a[8] )  / 

252  (lddi.aink_total.pkta  -  lddi_aink_total_pkta_aC8])) ; 


253 

264 

255 

256 

257 

258 

259 

260 


/a  (fddi.sink.accua.delay.aCO]  ♦  fddi.sink.accua.delay.a Cl]  ♦  */ 
/*  lddi.aink_accuB_dalay.aC2]  +  lddi_aink_accun_delay_a[3]  +  */ 
/*  Iddi.aink.accuB.dalay.aCti  +  lddi.aink_accuB_dalay.aC5]  +  */ 
/*  lddi.aink_accuB_dalay.aC6]  +  lddi.aink_accuB_dalay.aC7])  /  */ 
/*  (lddi_aink_total_pkta_aCO]  +  Iddi.aink.total.pkta.aCl]  ♦  */ 
/*  lddi_aink_total_pkta_aC2]  +  lddi_aink_total_pkta_a[3]  +  */ 
/*  lddi_aink_total_pkta_aC4]  +  lddi_aink_total_pkta_aC5]  +  */ 
/*  lddi.8ink_total_pkta.aC6]  ♦  lddi_aink_total_pkta_aC7])) ;  */ 


261  /*  also  record  actual  dalay  valuea  */ 

262  op_stat_global_write  (eta.dalay.gahandla,  dalay); 

263  op_stat_global_write  (ete.delay_gshandle_aCpri.set] ,  dalay) ; 

264  } 

265  >  /*  and  ol  if (dest.addr  **  ay.addr )kk(src_addr  <  ay.addr)  atataaant  */ 

266  /*  20APR94: destroy  the  packet a  coning  Iron  the  raaota  lan  daatinad  lor  this*/ 

267  /*  station.  These  packets  are  not  counted  lor  local  traffic.*/ 

268  else  iKdest.addr  »*  ay.addr) 

269  op_pk_destroy (pkptr) ; 

270  /*  20APR94:  check  the  frame  passed  to  MllcH  is  destined  lor  reaote  lan  */ 

271  /*  This  will  allow  only  the  packets  to  be  counted  1 or  CDL  traffic.*/ 

272  /*  -Karayakaylar  */ 

273  also 

274  { 

276  /•  add  in  its  size  */ 

276  lddilpl.total.bits  ♦*  op.pk_total_size.gat  (pkptr); 

277  lddilpl_total.bits_aCpri.sat]  ♦*  op_pk.total_siza.gat  (pkptr);  /*  20APR94  */ 

278  /•  increaant  packet  counter;  20APR94  •/ 

279  fddilpl.total.pkts**; 
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280  fddilpl_total_pkts_aCpri_set]++; 

281  /*  if  a  nultiple  o f  25  packets  is  reached,  update  stats  */ 

282  /e  [0] ->  C7]  represent  asynch  priorities  l->8,  */ 

283  /e  respectively;  [8]  represents  synchronous  traffic,  •/ 

284  /•  and  [0]  represents  overall  asynchronous  traffic. -fix  */ 

285  if  (fddilpl.total.pkts  X  25  **  0) 

286  { 

287  op_stat_global_«rite  (t_gshandle, 

288  fddilpl.total.bits  /  op.sin.tine  ()); 

289  op_stat_global_«rite  (t_gshandle_aCpri_set] , 

290  fddilpl.total.bits.aCO]  /  op.sin.tineO); 

291  op_stat_global_urite  (t_gshandle_a[0] , 

292  fddilpl.total.bits.aCl]  /  op_sia_tine()); 

293  op_stat_global_vrite  (t.gshandle.aCl) , 

294  fddilpl_total.bits_aCpri.set]  /  op_sia_tine()); 

295  op_stat_global_vrite  (t_gshandls_aC2] , 

296  fddilpl_total_bits.a[2]  /  op_sin_tine(>); 

297  op_stat_global_*rite  (t_gshandle_a[3] , 

298  fddilpl.total_bits.aC3]  /  op_sin_tine()) ; 

299  op_stat_global_write  (t_gshandle_aC4] , 

300  fddilpl_total_bits_aC4]  /  op.sin.tineO); 

301  op_stat_global_write  (t.gshandle.aCS] , 

302  fddilpl_total.bits.aC5]  /  op.sin.tineO); 

303  op.stat_global_vrite  (t.gshandle.aCS] , 

304  fddilpl_total.bits.aC6]  /  op.sin.tineO); 

306  op_stat_global_vrite  (t_gshandle_a[7] , 

306  fddilpl_total_bits_aC7]  /  op.sin.tineO); 

307  op_stat_global_vrite  (t_gshandle_a[8] , 

308  fddilpl_total_bits_aC8]  /  op.sin.tineO); 

309  /*  gather  all  asynch  stats  into  one  overall  figure  */ 


310 

op_ s tat _global.wri te  (t_gshandle_aC9] , 

311 

(fddilpl.total.bits  -  fddilpl_total_bits_aC8])  / 

312 

op_sin_tine()); 

313 

/* 

(fddilpl.total.bits.aCO]  ♦  fddilpl.total.bits.aCl] 

♦ 

•/ 

314 

/* 

fddilpl_total_bits_aC2]  ♦  fddilpl.total_bits.aC3] 

♦ 

*/ 

315 

/* 

fddilpl_total_bits_aC4]  ♦  fddilpl_total_bits_aC5] 

♦ 

*/ 

316 

/* 

fddilpl.total_bits.aC6]  ♦  fddilpl_total_bits_aC7])  / 

*/ 

317 

/* 

op.sin_tine()); 

318 

> 

319  /•  144PR94  : allocate  the  packets  to  llc.sink  subqueues  */ 

320  /*  6APR94  -Karayakaylar*/ 


321  /*  check  if  load  balancing  algorithm  ia  circular  */ 

322  /•  zero(O)  is  the  circular  load  balancing  coda  */ 

323  if  (load_balanca_coda  ■»  0) 

324  { 

325  /*  6APR94  •/ 

326  /*  Apply  load  balancing  to  insert  the  packet#  in  the  */ 

327  /e  subqueue b ,  in  a  circular  order  */ 

328  i  ■  subq.index  X  4; 

329  /*  check  if  previous  source  address  is  allocated  to  this  queue  */ 

330  /*  if  so,  allocate  the  packet  to  that  subqueue  so  that  consecutive  packets  ♦/ 

331  /*  coning  from  the  sane  station  folios  the  sane  channel  */ 

332  /•  otherwise,  allocate  the  packet  to  the  next  queue  for  transmission  */ 

333  if (prev_src_addr [i]  »*  src.addr) 

334  { 

336  op_subq_pk_insert(i,  pkptr,  OPC.QPOS.TAIL); 

336  prev_src_addr [i]  ■  src.addr; 

337  > 

338  else 

339  { 

340  subq_index++; 

341  subq.no  *  subq.index  X  4; 

342  op.subq_pk_insert (subq.no,  pkptr,  OPC.QPOS.TAIL) ; 

343  prev_src_addrCsubq.no]  *  src.addr; 

344  } 

345  } 


346  /*  25APR94  •/ 

347  /•  check  if  load  balancing  algor itha  is  empty  allocation  */ 

348  /*  one(l)  is  the  empty  allocation  load  balancing  code  */ 

349  if  (load.balance.code  «  1) 

350  { 

351  i*  subq.index  X  4; 

352  /•  check  if  previous  source  address  is  allocated  to  this  queue  */ 

353  if (prev.src.addrCi]  **  src.addr) 

354  { 

355  op_subq_pk_insert(i,  pkptr,  OPC.QPOS.TAIL); 

356  prev.src.addrCi]  *  src.addr; 

367  > 

368  else 

359  /e  Apply  load  balancing  to  insert  the  packets  in  the  */ 

360  /•  subqueues  by  choosing  the  subqueue  uhich  has  the  maximum  current  */ 

361  /*  number  of  free  packet  slots  */ 

362  { 

363  subq.no  *  op_subq_index_aap(OPC_QSEL_IIAX_FREE_PKSXZE) ; 

364  op.subq.pk_ insert (subq.no ,  pkptr,  OPC.QPOS.TAIL); 

366  prev.src.addr Csubq.no]  ■  src.addr; 

366  subq_index++ ; 

367  > 

368  > 
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309  /*  send  the  packets  to  the  trananittera  •/ 

370  x*it_aubq_ index  »  i; 

371  /*  check  if  tki a  aubquaua  ia  empty  and  transmitter  ia  sot  busy  */ 

372  if  ((!op_aubq_empty(xmit_subq_index))AA(buffer[xmit_aubq_index]  ==  0.0)) 

373  { 

374  /aaccaaa  tha  fir at  packat  ia  tha  aubquaua  */ 

375  pkptrl  «  op_aubq_pk_r amove  (xmit.aubq.index ,  OPC.QPOS.HEAD) ; 

376  /*  forward  it  to  tha  daatiaation  zaittar  */ 

377  /*  aaaociatad  with  tha  aubquaua  iadax  */ 

378  op_pk_sand  (pkptrl,  xmit_subq_index  ); 

379  > 

380  }/*if (dest.addr  >  my.addr)  atataaant  */ 

381  break; 

382  }/*  and  of  caaa  OPC.IITRPT.STRM  atataaant  */ 

383  >/«  and  of  awitch  */ 

384  > 


385  /**  blocking  after  enter  axacutivea  of  unforced  atata.  **/ 

386  FSH.EXIT  (l .cp.fddi.aink) 


387  /**  atata  (DISCARD)  exit  axacutivea  **/ 

388  FSM.STATE.EXIT.UIFORCED  (0,  atataO_axit_axac ,  “DISCARD") 

389  { 

390  > 


391  /**  atata  (DISCARD)  tranaition  procaaaing  **/ 

392  FSM_IIIT_COID  (EID_0F_SIM) 

393  FSM_DFLT_COID 

394  FSM.TEST.LOGIC  ("DISCARD") 

395  FSH_TRAISIT_SVITCH 

396  { 

397  FSM.CASE.TRAISIT  (0,  1,  statel.antar.exec,  ;) 

398  FSM.CASE.TRAISIT  (1.  0.  stateO.enter.exsc,  ;) 

399  } 

400  /♦ - ♦/ 


401  /*•  atata  (STATS)  enter  axacutivea  **/ 

402  FSK_STATE_E*TER_UIFORCED  (1,  statel.enter.exec,  "STATS") 

403  < 

404  /•  At  and  of  aiaulation,  acalar  performance  atatiatica  */ 

405  /*  and  input  paraaatara  are  written  out.  */ 

406  op.stat.scalar.write  ("RL  Throughput  (bpa).  Priority  1", 

407  fddilpl.total_bita.aCO]  /  op.aim.tima  ());  /*20APR94*/ 
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408  op.stat.scalar.srito  ("RL  Throughput  (bps).  Priority  2", 

409  fddilpl.total.bits.aCl]  /  op.sia.tiao  ()); 

410  op.stat.scalar.srito  ("RL  Throughput  (bps).  Priority  3M, 

411  fddilpl_total_bits_a(2]  /  op.sia.tiao  ()); 

412  op.stat.scalar.srito  ("RL  Throughput  (bps),  Priority  4", 

413  fddilpl.total_bits.aC3]  /  op.sia.tiao  ()); 

414  op_stat_scalar_«rits  ("RL  Throughput  (bps),  Priority  5", 

415  fddilpl_total_bits_a[4]  /  op.sia.tiao  ()); 

416  op.stat.scalar.srito  ("RL  Throughput  (bps),  Priority  6", 

417  fddilpl.total_bits.aC5]  /  op.sia.tiao  ()); 

418  op.stat.scalar.srito  ("RL  Throughput  (bps).  Priority  7", 

419  fddilpl.total_bits.aC6]  /  op.sia.tiao  ()); 

420  op.stat.scalar.srito  ("RL  Throughput  (bps),  Priority  8", 

421  fddilpl_total_bits_aC7]  /  op.sia.tiao  ()); 

422  op.stat.scalar.srito  ("RL  Throughput  (bps) ,  Asynchronous" , 

423  (fddilpl.total.bits  -  fddilpl_total_bits_a[8] )  /  op.sia.tiao  ()); 


424 

425 

426 

427 

428 


/*  (fddilpl_total_bits_a[0]  + 
/*  fddilpl_total.bits.aC2]  + 
/*  fddilpl_total_bits_aC4]  + 
/*  fddilpl.total_bits.aC6]  ♦ 
/*  op.sia.tiao  ()); 


fddilpl_total_bits_a[l]  ♦  */ 
fddilpl_total_bits_aC3]  +  */ 
fddilpl.total_bits.aC5]  +  */ 
f ddilpl.total_bits.aC7] )  /  */ 


429  op.stat.scalar.srito  ("RL  Throughput  (bps),  Synchronous", 

430  fddilpl_total_bits_aC8]  /  op.sia.tiao  ()); 

431  op.stat.scalar.srito  ("RL  Throughput  (bps).  Total", 

432  fddilpl.total.bits  /  op_sia_tiao  ());  A20APR94*/ 


433  /*  Only  ono  station  noods  to  do  this  */ 

434  if  ( Ifddi.sink. scalar .srito) 

435  { 

436  /•  sot  tho  scalar  srito  flag  •/ 

437  f ddi_sink_scalar.tr ito  *  1; 

438  op.stat.scalar.srito  ("Moan  End-to-End  Dolay-0  (soc.).  Priority  1", 

439  fddi_sink_accuB.dolay.aCO]  /  fddi.sink_total_pkts.aCO]); 
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440 

441 


op.stat.scalar.orite  ("Kean  End- to- End  Delay-0  (sac.),  Priority  2", 
lddi_sink_accu»_delay_a[l]  /  lddi_sink_total_pkta_a[l] ) ; 

442  op.stat.scalar.orite  ("Naan  End-to-End  Delay-0  (sac.).  Priority  3", 

443  fddi_sink.acciuB_delay.aC2]  /  1 ddi_aink_total_pkts_a [2] ) ; 

444  op.stat.scalar.orite  (“Naan  End-to-End  Dalay-0  (sac.).  Priority  4", 

445  lddi_aink_accum_delay_a[3]  /  lddi.sink_total_pkts.at3]) ; 

446  op.stat.scalar.orite  ("Naan  End-to-End  Dalay-0  (sac.).  Priority  5", 

447  lddi.sink_acciuB_delay.aC4]  /  fddi_sink_total_pkta_aC4]); 

448  op.stat.scalar.orite  ("Naan  End-to-End  Dslay-0  (sac.).  Priority  6", 

449  fddi_sink_accua_dslay_aC5]  /  lddi_sink_total_pkts_a[5]); 

450  op.stat.scalar.irrita  ("Naan  End-to-End  Dalay-0  (sac.),  Priority  7", 

451  fddi_sink_acciuB_delay_aC6]  /  Iddi.sink.total.pkts.aCoJ) ; 

452  op.stat.scalar.irrita  ("Naan  End-to-End  Delay-0  (sac.).  Priority  8", 

463  lddi_sink_accun_delay_aC7]  /  lddi_sink_total_pkts_a[7]); 

454  op.stat.scalar.orite  (“Naan  End-to-End  Dalay-0  (sec.).  Asynchronous", 

455  (lddi_sink_accon_delay  -  fddi_sink_accua_delay_aC8])  / 

466  (lddi.sink_total.pkts  -  lddi.sink_total_pkts.aC8])); 

467  /•  (Iddi.sink.accua.dalay.aCO]  ♦  lddi_sink.accua_dalay.aCl]  +  */ 

468  /*  lddi_sink_accun_delay_aC2]  +  lddi_siak_accua_delay_aC3]  +  */ 

459  /»  lddi_sink_accun_delay_aC4]  ♦  lddi.sink_accua_dalay_aC5]  +  */ 

460  /*  lddi.sink_accua.dalay.aC6]  +  lddi_sink_accua_dalay_aC7])  /  */ 

461  /*  (lddi.sink_total_pkts.aCO]  +  lddi.sink_total_pkts.aCl]  +  */ 

462  /*  lddi_sink_total_pkts_aC2]  +  lddi_sink_total_pkts_aC3]  +  */ 

463  /*  lddi_sink_total.pkts_aC4]  +  lddi.sink_total_pkts.aC5]  +  */ 

464  /*  lddi_sink_total_pkts_aC6]  +  lddi_sink_total_pkts_aC7])) ;  */ 


465  op.stat.scalar.orite  ("Naan  End-to-End  Dalay-0  (sec.).  Synchronous”, 

466  lddi_sink_accua_dolay_aC8]  /  lddi_sink_total_pkts_aC8]); 

467  op.stat.scalar.orite  ("Naan  End-to-End  Delay-0  (sac.).  Total", 

468  lddi_sink_accua_delay  /  lddi.sink_total.pkts) ; 

469  op.stat.scalar.orita  ("Throughput-0  (bps),  Priority  1", 

470  lddi.sink_total_bits.aCO]  /  op.sia.tiaa  ()); 

471  op.stat.scalar.orite  ("Throughput-0  (bps).  Priority  2", 

472  lddi.sink_total_bits.aCl]  /  op.sim.time  ()); 

473  op.stat.scalar.orite  ( "Throughput -0  (bps).  Priority  3", 

474  lddi_sink_total_bits_aC2]  /  op.sin.tina  ()); 

476  op.stat.scalar.orita  (“Throughput-0  (bps).  Priority  4", 
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476 


lddi.aink_total_bita.aC3]  /  op.aia.tina  ()); 


477  op.atat.acalar.vrita  ( "Throughput -0  (bps),  Priority  6", 

478  lddi_aink_total_bita_a[4]  /  op.aia.tiaa  ()); 

470  op.atat.acalar.vrita  ("Throughput-0  (bpa),  Priority  6" , 

480  lddi.aink.total.bita.aCS]  /  op_aia_tiaa  ()); 

481  op.atat.acalar.vrita  ( "Throughput -0  (bpa).  Priority  7", 

482  lddi_vink_total_bita_aC6]  /  op.aia.tiaa  ()); 

483  op.atat.acalar.vrita  ( "Throughput -0  (bpa).  Priority  8", 

484  lddi_aink_total_bita_aC7]  /  op.aia.tia#  ()); 

488  op.atat.acalar.vrita  ( "Throughput -0  (bpa),  Aaynchronoua", 

486  (lddi_aink.total.bita  -  fddi_iink_total_bita_a[8] )  /  op.aiaL.tiaa  ()); 


487  /*  (lddi.aiak_total_bita.aCO]  +  lddi.aink_total_bita.aCl]  +  */ 

488  /*  lddi.aink_total_bita.aC2]  +  lddi_aink_total_bita_aC3]  +  */ 

489  /•  lddi_aink_total_bita_aC4]  +  lddi_aink_total_bita_aC5]  +  */ 

490  /•  lddi.aink_total_bita.aC6]  *  lddi_aink_total_bita_aC7])  /  */ 

491  /*  op.aia.tima  ());  */ 


492  op.atat.acalar.srito  ("Throughput-0  (bpa).  Synchronous" , 

493  lddi.aink_total_bita.aC8]  /  op.aia.tiao  ()); 

494  op.atat.acalar.vrita  ("Throughput-0  (bpa),  Total", 

496  lddi.aink_total.bita  /  op_aia_tiaa  ()); 


496  op.atat.acalar.vrita  ("Peak  End-to-End  Dalay-0  (aac.).  Priority  1", 

497  lddi_aink_paak_dalay_aCO]); 

498  op.atat.acalar.vrita  ("Paak  End-to-End  Dalay-0  (aac.).  Priority  2”, 

499  lddi.aink_paak_dalay.aCl]); 

600  op.atat.acalar.urito  ("Paak  End-to-End  Dalay-0  (aac.).  Priority  3", 

lddi.aink_paak_dalay.aC2] ) ; 

601  op.atat.acalar.vrita  ("Paak  End-to-End  Dalay-0  (aac.).  Priority  4", 

602  Iddi.aink.paak.dalay.a  C3] ) ; 

603  op.atat.acalar.vrita  ("Paak  End-to-End  Dalay-0  (aac.).  Priority  6", 

604  Iddi.aink.paak.dalay.a  C4] ) ; 

606  op.atat.acalar.vrita  ("Paak  End-to-End  Dalay-0  (a »<•.),  Priority  6", 
606  lddi.aink_paak_dalay.aC5]); 


607 


op.atat.acalar.vrita  ("Paak  End-to-End  Dalay-0  (aac.).  Priority  7", 


508 


fddi_sink_peak_delay_a  [6]  ) ; 


509  op.stat.scalar. write  ("Peak  End-to-End  Delay-0  (sec. ) ,  Priority  8M, 

610  fddi_sink_peak_delay_a[7] ) ; 

611  op.stat.scalar. write  ("Peak  End-to-End  Oalay-O  (aac. ) ,  Synchronous" , 

612  fddi_sink_peak_delay_a£8]); 

613  op.stat.scalar.write  ("Peak  End-to-End  Dalay-0  (sac. ) ,  Overall", 

514  fddi.sink.peak.delay) ; 


616  /*  Vrita  the  TTET  value  for  ring  0.  This  prasarvea  a/ 

518  /*  the  old  behavior  lor  single-ring  simulations.  */ 

517  op.stat.scalar .write  ("TTET  (see.)  -  Ring  0", 

618  fddi_t_opr  [0]); 

519  /*  12JA194:  obtain  of farad  load  information  Iron  the  Environs ant  a/ 

620  /a  file;  this  will  be  used  to  provide  abscissa  information  that  */ 

621  /*  can  be  plotted  in  the  Analysis  Editor  (sea  "fddi.sink"  STATS  */ 

522  /*  state.  To  the  osar:  it's  your  job  to  keep  these  current  in  */ 

523  /*  the  Environment  File.  -lix  */ 

624  op_isa_sis_attr_gat  (0PC_MA_D0UBLE,  "total.of fered_load_0" ,  »0f f eredJLoad) ; 

626  op_ima_sin.attr.get  (0PC.IMA.D0UBLE,  "asynch_offerad_load_0",  A Asynch_ Offered. Load) ; 


626  /a  12JAI94:  write  the  total  offered  load  for  this  run  */ 

627  op.stat.scalar .write  ("Total  Offered  Load-0  (Mbps)", 

528  Of f ared.Load) ; 

529  op.stat.scalar.writa  ("Asynchronous  Offered  Load-0  (Mbps)", 

530  As ynch. Off ared.Load) ; 

531  > 

632  > 


633  /•*  blocking  after  enter  executives  of  unforced  state.  **/ 

634  FSM.EXIT  (3,cp_fddi_sink) 


636  /aa  state  (STATS)  exit  executives  ••/ 

536  FSM.STATE.EXIT.UIFORCED  (1,  statel.exit.exec,  "STATS”) 

537  { 

538  > 


639  /**  state  (STATS)  transition  processing  •*/ 

640  FSM.TRAVSIT.MISSIIG  ("STATS") 


- a/ 


642  /**  state  (HIT)  enter  executives  **/ 

643  FSM_STATE_EITER_FORCED  (2,  state2_ eater. exec ,  "IlIT") 

644  < 

646  /e  get  the  gshandles  of  the  global  statistic  to  be  obtained  */ 

646  /*  20 J AIM:  set  array  format  */ 

647  thru_gshandle_a [0]  ■  op_stat_global_rsg  (Mpri  1  throughput-0  (bps)M); 

648  thru_gshandle_aCl]  ■  op_stat_global_reg  ("pri  2  throughput-0  (bps)"); 

648  thru_gshandle_a [2]  >  op_stat_global_reg  ("pri  3  throughput-0  (bps)"); 

660  thru^gshandle.a [3]  «  op_stat_global_reg  ("pri  4  throughput-0  (bps)"); 

651  thr«Lgshandle_aC4]  *  op_stat_global_reg  ("pri  5  throughput-0  (bps)"); 

662  thrtLgshandle.a [6]  «  op_stat_global_reg  (“pri  6  throughput-0  (bps)"); 

663  thru^shandle_aC6]  «  op_stat_global_reg  ("pri  7  throughput-0  (bps)"); 

664  thru_gshandle_a[7]  »  op_stat_global_reg  ("pri  8  throughput-0  (bps)"); 

666  thru_gshandle_a [8]  ■  op_stat_global_r«g  ("synch  throughpnt-0  (bps)"); 

666  thru_gshandl e_a [9]  *  op_stat_global_reg  ("async  throughput-0  (bps)"); 

667  thrtLgshandle  *  op_stat_global_reg  ("total  throughput-0  (bps)"); 

668  m_delay_gahandle_aCO]  *  op_stat_global_reg  ("pri  1  nean  delay-0  (sec.)"); 

569  n_delay_gshandle_aCl]  ■  op_stat_global_reg  ("pri  2  nean  delay-0  (sec.)"); 

560  n_delay_gshandle_a [2]  *  op_stat_global_reg  ("pri  3  mean  delay-0  (sec.)"); 

561  a_delay_gshandle_aC3]  *  op_stat.global.reg  (“pri  4  mean  delay-0  (sec.)”); 

562  »_delay_gshandle_a [4]  *  op_stat.global.reg  ("pri  5  nean  delay-0  (sec.)"); 

663  ■_delay_gshandle_a[5]  «  op.stat_global_reg  ("pri  6  nean  delay-0  (sec.)"); 

664  u_delay_g«handle_a[6]  «  op_stat.global.reg  ("pri  7  nean  delay-0  (sec.)"); 

565  ■_delay_gshandle_a [7]  *  op.stat_global.reg  ("pri  8  nean  delay-0  (sec.)”); 

566  a_delay_gshandle_a[8]  *  op.stat_global.reg  ("synch  nean  delay-0  (sec.)”); 

567  «_delay_gshandle_a[9]  *  op.stat_global.reg  ("async  mean  delay-0  (sec.)"); 

568  a_delay_gshandle  *  op_stat.global.reg  ("total  nean  delay-0  (sec.)"); 

669  ete_delay_gshandle_a (0]  «  op_stat_global_reg  ("pri  1  end-to-end  delay-0  (sec.)") 

670  ete_delay_gshandle_a[l]  *  op.stat45lobal.reg  ("pri  2  end-to-end  delay-0  (sec.)") 

571  ete_delay_gshandle_a [2]  ■  op.stat45lobal.reg  ("pri  3  end-to-end  delay-0  (sec.)") 

572  ete_delay_gshandle_a [3]  *  op_stat_global_reg  ("pri  4  end-to-end  delay-0  (sec.)") 

573  ete.delay_gshandle.aC4]  ■  op.stat45lobal.reg  ("pri  5  end-to-end  delay-0  (sec.)") 

574  ete_delay_gshandle_a [5]  =  op.stat_global_reg  ("pri  6  end-to-end  delay-0  (sec.)") 

576  ete.delay_gshandle_aC6]  «  op_stat_global_reg  ("pri  7  end-to-end  delay-0  (sec.)") 

676  ete.delay45shandle.aC7]  *  op.stat_global.reg  ("pri  8  end-to-end  delay-0  (sec.)") 

677  ete.delay_gshandle.aC8]  ■  op.stat_global.reg  ("synch  end-to-end  delay-0  (sec.)") 

678  ete_delay_gshandle  ■  op_stat_global_reg  ("total  end-to-end  delay-0  (sec.)") 

579  t_gshandle.aCO]  »  op_stat_global_rog  ("pri  1  RL  throughput  (bps)");  /*20APRM*/ 

680  t_gshandle_aCl]  ■  ©p_stat_global_reg  ("pri  2  RL  throughput  (bps)"); 

581  t_gshandle.aC2]  -  op_stat_global_reg  ("pri  3  RL  throughput  (bps)”); 

682  t_gshandle_aC3]  «  op.stat_global.reg  ("pri  4  RL  throughput  (bps)") ; 

683  t_gshandle_aC4]  «  op.stat_global_reg  ("pri  6  RL  throughput  (bps)"); 

684  t_gshandle.aC&]  *  op_stat_global_reg  ("pri  6  RL  throughput  (bps)"); 

585  t4(shandle.aC6]  «  op_stat_global_reg  ("pri  7  RL  throughput  (bps)"); 

586  t.gshandle.aC7]  ■  op_stat_global_reg  ("pri  8  RL  throughput  (bps)"); 

687  t4(shandle_aC8]  •  op_stat_global_reg  ("synch  RL  throughput  (bps)"); 
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688  t_gshandls_a[9]  »  op.stat_global_rsg  ("asjnc  EL  throughput  (bps)"); 
589  t_gshandls  »  op.stat .global _rsg  ("total  EL  throughput  (bps)") ; 


590  > 


691  /*•  stats  (HIT)  szit  oxacutivos  **/ 

692  FS1I_STATE_EXIT_F0RCED  (2.  stata2.axit.sxac,  "HIT") 

693  < 

694  > 


696  /*•  stats  (IIIT)  transition  procsssing  **/ 

596  FSK.IIIT.COID  (EID.OF.SIH) 

697  FSH_DFLT_COID 

598  FSK.TEST.LOGIC  ("HIT") 

699  FSM.TJUISIT. SWITCH 
600  { 

601  FSM.CASE.TBAHSIT  (0,  1,  st at sl.snt sr.sxsc ,  ;) 

602  FSH.CASE.TRAISIT  (1.  0,  statsO_sntsr_sxsc ,  ;) 

603  > 

604  /s - */ 


606  > 

606  FSH.EXIT  (2,cp_fddi_sink) 

607  > 


608  void 

609  cp.fddi.sink.svar  (prs_ptr ,var .nans , Tar .p.ptr) 

610  cp.fddi.sink.stats  *prs_ptr; 

611  char  svar.naas,  **Tar_p_ptr ; 

612  { 

613  FII  (cp.fddi.sink.STar  (prs.ptr)) 

614  *Tar_p_ptr  »  V0S.IIL; 

616  if  (Vos.String_Equal  ("thru_gshandla"  ,  Tar.naaa)) 

616  *var_p.ptr  *  (char  •)  (*prs_ptr->ST_thra_gshandls) ; 

617  if  (Vos_String_Equal  ("a.dslay.gshandls"  ,  Tar.naaa)) 

618  *Tar_p_ptr  ■  (char  *)  (*prs_ptr->sv_a_dslajr_gshandls) ; 

619  if  (Vos_String_Equal  ("ata_dalay_gshandlaM  ,  Tar.naas)) 


130 


620  *var_p_ptr  »  (char  •)  (tprs_ptr->sv_et*_d*lay_gshandle); 

621  if  (Vos_String_Equal  ( "thru_gahandle_a"  ,  m.au«)) 

622  *var_p_ptr  »  (char  *)  (pr«_ptr->iv_thni_gahandle_a) ; 

623  if  (Vos_String_Equal  ( "a_delay_gahandle_aM  ,  var_naaa) ) 

624  *var_p_ptr  *  (char  *)  (prs_ptr->sv_a_d*lay_gshandl*_a) ; 
626  if  (Voa_String_Equal  ( “'ete_delay_gahandle_a"  ,  var.naae)) 

626  *var_p_ptr  ■  (char  •)  (prs_ptr->sv_*te_delay_gshandle_a); 

627  if  (Voa_String_Equal  (Mt_gahandlaM  ,  var_naaa) ) 

628  *var_p_ptr  ■  (char  •)  (*pr«_ptr->iv_t_gahandla) ; 

629  if  (Vos_String_Equal  ("t_gshandla_a"  ,  var.naaa) ) 

630  *var_p_ptr  •  (char  *)  (pra_ptr->av_t_gihandle_a) ; 

631  if  (Vo«_String_Equal  (May_idM  ,  var.naaa)) 

632  *var_p_ptr  *  (char  *)  (Apr»_ptr->«v_ny_id) ; 

633  FOOT; 

634  > 


636  void 

636  cp_fddi_ai.nk.diag  () 

637  { 

638  double  delay,  creat.tiae; 

639  Packet*  pkptr; 

640  Packet*  pkptrl  ;  /*5APR94*/ 

641  int  src.addr,  ay.addr; 

642  int  deat.addr ; / * 14APR94*/ 

643  lei*  froa_aac.ici.ptr; 

644  double  fddi.sink.ttrt; 

646  int  xait_subq_index;/*6APR94*/ 

646  int  load.balance.code;  /*8APR94*/ 

647  int  i, aubq.no;  /*25APR04*/ 

648  int  index;  /*10HAY94  */ 


649  FZI  (cp.fddi_sink.diag  ()) 


660  FOOT; 

661  > 


662  void 

663  cp.fddi.sink.terainate  () 

664  { 

666  double  delay,  creat.tiae; 

666  Packet*  pkptr; 

667  Packet*  pkptrl  ;  /*6APR94*/ 
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668  1st  src.addr,  aj.addr; 

669  int  dest.addr ;  /*14APR94*/ 

660  Ici*  troa_aac_iei_ptr; 

661  double  f ddi.sink.ttrt ; 

662  iat  xait_subq_index;/*SAPR94*/ 

663  iat  load.balance.code;  /*6APR94*/ 

664  iat  i , aubq_ao ;  /*26APR94*/ 

666  iat  index;  /*10MAY94  */ 


666  Fit  (cp.fddi.s ink. terminate  ()) 


667  FOOT; 

668  > 


669  Coapcodo 

670  cp.fddi.sink.init  Cpr.state.pptr) 

671  cp.fddi.sink.etate  **pr_state_pptr ; 

672  { 

673  static  VosT.Cn.Obtype  obtjpo  *  OPC.IIL; 

674  FII  (cp.fddi.sink.init  (pr_stat«_pptr)) 

676  if  (obtjpo  ««  OPC.IIL) 

676  { 

677  if  (Voo_Cataoa_Rogister  ("proc  state  vara  (cp.fddi.sink)", 

678  siceof  (cp.fddi.sink. state) ,  Vos.Vop,  Aobtype)  «»  VOSC.FAILURE) 

679  FRET  (0PC.C0MPC0DE.FAILURE) 

680  > 

681  if  ((*pr_state_pptr  »  (cp.fddi.sink.state*)  Vos.Catne*. Alloc  (obtype,  l))  **  0PC.IIL) 

682  FRET  (0PC_C0MPC00E_FAIL0RE) 

683  else 

684  { 

686  (*pr_state_pptr)->current_block  «  4; 

686  FRET  (0PC.C0MPC0DE.SUCCESS) 

687  > 

688  > 


APPENDIX  D 

SPNI  SOURCE  “C”  CODE 


“sp_fddi_gen.pr.c” 


The  line  numbering  in  this  appendix  is  within  this  thesis  only,  and  does  not  corre¬ 
spond  with  that  seen  in  OPNET’s  text  editors. 

1  /•  Proem  nodal  C  fora  file:  sp_fddi_gen.pr.c  */ 

2  /*  Portions  of  this  fils  Copyright  (C)  MIL  3,  Zne.  1992  */ 


2  /*  OPIET  systsa  dsfinitions  */ 

3  t include  <opnst.h> 

4  iinelnds  "sp_fddi_gen.pr.h" 

6  FSM.EXT.DECS 


6  /*  Isadsr  block  */ 

7  tdsfins  MAC_LAYER_ OUT. STREAM  0 

8  tdsfins  LLC.SIIK.OUT.STREAM  1  /*18APR94*/ 

9  /«  dsfins  possibls  service  classes  for  fraass  */ 

10  tdsfins  FDDI.SVC.ASYIC  0 

11  tdsfins  FDDI.SVC.SYIC  1 

12  /*  dsfins  token  classes  */ 

13  tdsfins  FDDI_TK_I01RESTRICTED  0 

14  tdsfins  FDDl.TX.EESTRICTED  1 


15  /•  Stats  variable 

dsfinitions  */ 

16  typedef  struct 

17  { 

18  FSM.STS.STATE 

19  Distribution* 

sv.inter.dist.ptr; 

20  Distribution* 

sv.len.dist.ptr ; 

21  Distribution* 

sv_dsst_dist_ptr ; 

22  Distribution* 

sv_pkt_priority_ptr ; 

23  Objid 

sv_aac .objid; 

24  Objid 

sv_ay_id; 

25  int 

sv_lov.dsst.addr ; 

20  int 

sv_high.dsst.addr ; 
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27  int 

sv.station.addr; 

28  int 

sT.src.&ddr; 

29  int 

■T.low.pkt .priority ; 

30  int 

sT_high_pkt .priority ; 

31  doable 

ST_arriTal_rate ; 

32  doable 

ST_aean_pk_len; 

33  doable 

ST.async.nix; 

34  Zci* 

sT_aac_iciptr; 

35  Xci* 

ST_nac_iciptrl; 

38  Id* 

sT.Uc_ici.ptr; 

37  Packet* 

ST.pkptrl; 

38  >  sp_fddi_gen_state; 

39  fdefine  pr.state.ptr 

( (sp.f ddi_gen_state*)  SinZ.Rod_State.Ptr) 

40  tdefine  inter_dist_ptr 

pr_state_ptr->ST_inter_dist_ptr 

41  fdefine  len_dist_ptr 

pr_state_ptr->ST_len_dist_ptr 

42  fdefine  dest_dist_ptr 

pr_state_ptt->sT_dest_dist_ptr 

43  fdefine  pkt.priority.ptr 

pr_state_ptr->aT_pkt_priority_ptr 

44  fdefine  aac.objid 

pr_state_ptr->sT .nac.ob j id 

45  fdefine  ay.  id 

pr_state_ptr->sT_ay_id 

46  fdefine  lov.dest.addr 

pr_state_ptr->sT_loT_dest_addr 

47  fdefine  high.dest.addr 

pr_state_ptr->sT_high_dest.addr 

48  fdefine  station_addr 

pr_state_ptr->ST_station_addr 

49  fdefine  src.addr 

pr_state_ptr->ST_arc_addr 

50  fdefine  lo«_pkt .priority 

pr_state_ptr->ST_low_pkt priority 

51  fdefine  high_pkt_priority  pr.state.ptr- >s*_high_pkt_priority 

52  fdefine  arrival_rate 

pr_state_ptr->ST_arriTal_rate 

53  fdefine  nean.pk.len 

pr_state.pt r->sT_nean_pk_len 

64  fdefine  asynejnix 

pr_state_ptr->ST.async_niz 

66  fdefine  nac.iciptr 

pr_state_ptr->ST_nac_iciptr 

56  fdefine  nac.iciptrl 

pr_state.ptr->ST_nac_iciptrl 

67  fdefine  llc.ici.ptr 

pr_state_ptr->ST_llc_ici_ptr 

58  fdefine  pkptrl 

pr_state.ptr->sT_pkptrl 

59  /•  Process  aodsl  interrupt  handling  procedure  ♦/ 


80  void 

61  sp_fddi_gen  () 

82  { 

63  Packet  epkptr; 

84  int  pklen; 

86  int  dest.addr; 

88  int  i,  restricted; 

67  int  pkt.prio; 
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68  FSH.EITER  (sp_fddi_gen) 


69  FSM.BLOCK.SVZTCB 

70  { 

71  /* - */ 

72  /••  state  (HIT)  enter  executives  **/ 

73  FSM.STATB_S1TER_UIF0ECE0  (0,  stateO. enter .exec,  "HIT") 

74  { 

76  /•  determine  id  of  ora  processor  to  use  in  finding  attrs  */ 

76  my.id  «  op.id.self  (); 

77  /*  determine  address  range  for  uniform  desination  assignment  •/ 

78  op.ism_obj.attr .get  (my. id,  "low  dest  address" ,  61om.dest.addr) ; 

79  op_isMk.obj.attr .get  (my.id,  "high  dest  address",  6bigb.dest.addr); 

80  /*  determine  object  id  of  connected  'mac*  layer  process  */ 

81  mac.objid  *  op.topo.assoc  (my.id,  OPC.TOPO.ASSOC.OUT, 

82  OPC.OB JHTYPE JKJDULE ,  KAC.LAYER .OUT. STREAK) ; 

83  /*  determine  tbe  address  assigned  to  it  */ 

84  /*  which  is  also  the  address  of  this  station  */ 

86  op.ima.obj.attr.get  (mac.objid,  Matation_address" ,  6station_addr) ; 


86  /•  set  up  a  distribution  for  generation  of  addresses  */ 

87  dest_dist_ptr  *  op.dist.load  ("uniform_int",  los.dest.addr, 

88  bigh.dest.addr) ; 

89  /•  added  26DEC93  */ 

90  /•  determine  priority  range  for  uniform  traffic  generation  •/ 

91  op_ima_obj_attr_gst  (my.id,  "high  pkt  priority",  thigh.pkt.priority) ; 

92  op_ima.obj_attr.get  (my.id,  "lorn  pkt  priority",  61om_pkt_priority) ; 

93  /*  set  up  a  distribution  for  generation  of  priorities  */ 

94  pkt_priority_ptr  *  op.dist.load  ("uniform_int",  low.pkt .priority ,  high.pkt .priority) ; 
96  /*  above  added  260EC93  */ 


96  /*  also  determine  tbe  arrival  rate  for  packet  generation  */ 

97  op_ina_obj_attr_get  (my.id,  "arrival  rate",  karri val_rate) ; 

98  /*  determine  the  mix  of  asynchronous  and  synchronous  •/ 

99  /*  traffic.  This  is  expressed  as  the  proportion  of  */ 

100  /*  asynchronous  traffic,  i.e  a  value  of  1.0  indicates  •/ 

101  /•  that  all  the  produced  traffic  shall  be  asynchronous .  */ 

102  op.ima_obj.attr .get  (my.id,  "async_mix",  kasync.mix); 

103  /•  set  up  a  distribution  for  arrival  generations  */ 

104  if  (arrival.rate  !*  0.0) 
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105  { 

106  /*  arrivals  ara  exponentially  distributed,  with  given  seen  */ 

107  intar.dist.ptr  ■  op.dist.load  ("constant1*,  1.0  /  arrival_rate ,  0.0); 

108  /*  deternine  the  distribution  for  packet  size  */ 

109  op_iaa_obj_attr_get  (ay_id,  "aean  pk  length”,  Aaean_pk_lan) ; 

110  /*  set  up  corresponding  distribution  •/ 

111  len.dist.ptr  *  op.dist.load  ("constant",  ae&n_pk_len,  0.0); 

112  /*  designate  the  time  of  first  arrival  */ 

113  lddi_gen_schedule  (); 

114  /*  set  up  an  interlace  control  indorsation  (ZCZ)  structure  */ 

116  /•  to  eoaaunicate  paraaeters  to  the  aac  layer  process  */ 

116  /*  (it  is  aore  efficient  to  set  one  up  nos  and  keep  it  */ 

117  /•  as  a  state  variable  than  to  allocate  one  on  each  packet  xfer)  */ 

118  aac_iciptr  *  op_ici_create  ("fddi_aac_req") ; 

119  > 

120  > 


121  /**  blocking  after  enter  executives  of  unforced  state.  **/ 

122  FSN.EXZT  (l,sp_fddi_gen) 


123  /**  state  (Z1ZT)  exit  executives  •*/ 

124  FSM_STATE_EXZT_UIFORCED  (0,  stateO_exit_exec ,  "ZIZT") 
126  < 

126  > 


127  /*•  state  (ZIZT)  transition  processing  **/ 

128  FSN_miSZT.FORCE  (1.  statel.enter.exec,  ;) 

129  /* - */ 


130  /••  state  (ARRIVAL)  enter  executives  **/ 

131  FSH.STATE.EITER.UIFORCED  (1,  statel.enter.exec,  "ARRIVAL") 

132  { 

133  /•  This  station  should  receive  fraaes  froa  the  other  lan  as  long  as  */ 

134  /•  there  are  fraaes  in  the  input  streaas  addressed  to  this  lan  */ 

136  /"check  if  the  interrupt  type  is  streaa  interrupt  *//*12APR94*/ 

136  if (op.intrpt.typeO  ■■  OPC.IITRPT.STRM) 

137  { 

138  /•  if  it  is,  get  the  packet  in  the  input  streaa  causing  interrupt  */ 

139  pkptrl  ■  op_pk_get(op_intrpt_stra()); 

140  /•  get  the  destination  address  of  the  fraae  :  16APR94  */ 

141  op.pk.nfd^et (pkptrl,  "dest.addr",  tdest.addr); 
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142  /*  check  if  this  true  is  for  ths  reaot#  bridge  station(bridge  in  surface  lan)  */ 

143  if (dest.addr  ■■  station_addr) 

144  /*  if  it  is,  sand  ths  packet  to  llc.sink  directly  */ 

145  /*  in  order  to  prevent  overhead  of  aac  access  */ 

146  op_pk_send(pkptrl,  LLC_SZ*K_0UT_STREA1I);/*19APR94*/ 

147  else 

148  /•  this  packet  is  to  send  to  aac  */ 

149  { 

150  /•  deteraine  the  source  address  of  the  fraae  */ 

151  op.pk_nfdLget(pkptrl,  "src.addr",  tsrc.addr); 

152  /•  set  up  an  ZCZ  structure  to  coamnicate  parameters  to  */ 

163  /*  MAC  layer  process  */ 

164  aac.iciptrl  »  op.ici. create (Hfddi_aac_reqM); 

166  /*  place  the  original  source  address  into  the  ICZ  *//*  16APR94  */ 

166  /•  **fddi_aac_reqM  is  aodified  so  that  it  contains  the  original  */ 

167  /e  source  address  froa  the  local  lan (collect ion  platfora)  */ 

158  op_ici_attr_set(mac_iciptrl ,  "src.addr",  src.addr); 

169  /•  place  the  destination  address  into  the  ZCZ  */  /*12APR94*/ 

160  op.ici_attr.set(aac.ieiptrl,  "dest_addrM ,  dest.addr); 

161  /*  assign  the  service  class  and  requested  token  class  */ 

162  /*  At  this  aoaent  the  fraaes  coming  froa  the  remote  lan  are  assuaed  */ 

163  /•  to  have  the  saae  priority  as  synchronous  fraaes  in  order  not  to  aceuaulate  */ 

164  /e  packets  on  the  bridge  station  aac  and  instead  to  deliver  their  destinations  */ 
166  /*  as  soon  as  possible  •/ 

166  op_pk_nfd_«et(pkptrl ,  "pri".  8); 

167  op.ici.attr.set(nac.iciptrl,  "svc.class",  PDDZ.SVC.SYIC) ; 

168  op.ici.attr.set(aac.iciptrl,  Mpri",  8); 

169  op_ici_attr_set (aac.iciptr 1 ,  Mtk.elass“,  FDOZ.TK.IOIRESTRZCTED) ; 

170  /•  send  the  packet  coupled  vith  the  ZCZ  •/ 

171  op.ici.instalKaac.iciptrl) ; 

172  op_pk_send(pkptrl ,  HAC.LATGR.OUT.STREAN) ; 

173  > 

174  > 

176  /•  otherwise,  generate  the  fraae  */ 

176  else 

177  { 

178  /•  deteraine  the  length  of  the  packet  to  be  generated  */ 

179  pklen  »  op.dist.outcoae  (len_dist_ptr) ; 

180  /*  deteraine  the  destination  */ 

181  /*  dont  allow  this  station's  address  as  a  possible  outcoae  */ 

182  gea^packet: 

183  dest.addr  ■  op.dist.outcoae  (dest.dist.ptr); 

184  if  (dest.addr  !«  -1  At  dest.addr  ■■  station.addr) 

186  goto  gen_packet; 

186  /e  260BC94  t  29JAI94:  deteraine  its  priority  */ 

187  pkt_prio  ■  op.dist.outcoae  (pkt.priority.ptr) ; 

188  /•  create  a  packet  to  send  to  aac  */ 

189  pkptr  ■  op.pk_create.fat  ("fddi_llc.fr"); 
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190  /*  assign  its  overall  sis*.  */ 

192  op_pk_total_siz*_sst  (pkptr,  pklsn); 

193  /•  assign  the  tins  of  ersation  */ 

194  op_pk_nfd_set  (pkptr,  Hcr_tiasM ,  op_sin_ti**  ()); 

196  /*  placs  ths  destination  address  into  the  ZCZ  */ 

196  /*  (the  protocol.type  Held  sill  default)  */ 

197  op.ici.attr.set  (aac.iciptr,  "dast.addr" ,  dest.addr); 

198  /•  place  the  source  address  into  the  ZCZ  •//•  17APR94*/ 

199  op.ici.attr.set  (aac.iciptr,  "src.addr",  station.addr) ; 

200  /*  assign  the  priority,  and  requested  token  class  */ 

201  /•  also  assign  the  service  class;  29JAX94:  the  fddi_llc.fr  */ 

202  /*  format  is  modified  to  include  a  MpriM  field.  */ 

203  if  (op.dist.unifora  (1.0)  <*  async.mix) 

204  { 

206  'op_pk_nfd_s*t  (pkptr,  “priH,  pkt.prio);  /*  29JAI94  */ 

206  op.ici.attr.set  (aac.iciptr,  "svc.dass",  FDDI_SVC_ASYIC) ; 

207  op.ici.attr.set  (aac.iciptr,  MpriH ,  pkt.prio);  /*  29JAI94  */ 

208  > 

209  else{ 

210  op.pk_nfd.set  (pkptr,  "pri",  8);  /•  29JAK94  */ 

211  op.ici.attr.set  (aac.iciptr,  "svc.class",  FDDI.SVC.SYIC) ; 

212  op.ici.attr.set  (aac.iciptr,  "priH ,  8);  /•  29JAI94  */ 

213  > 

214  /•  Request  only  nonrestricted  tokens  after  transaission  */ 

216  op.ici.attr_set  (aac.iciptr,  "tk_class”,  FDDZ.TK.IOIRESTRZCTEO) ; 

216 

217  /*  lasing  determined  priority,  assign  it;  26DEC93  •/ 

218  /•  op.ici.attr.set  (aac.iciptr,  "pri",  pkt.prio);  e/ 

219  /*  send  the  packet  coupled  with  the  ZCZ  */ 

220  op.ici.install  (aac.iciptr); 

221  /•  check  if  destination  address  is  in  the  local  lan(collection  platform)*/ 

222  if(dest.addr  <*  9) 

223  /•  if  it  is,  this  packet  is  to  send  llc.sink  directly  */ 

224  op.pk.send  (pkptr,  LLC.SIIK.OUT.STREAM) ;  /*18APR94*/ 

226  else 

226  /•  if  not,  the  packet  is  destined  for  remote  lan  (surface  stations)*/ 

227  op.pk.send  (pkptr.  MAC_LATER_OUT.STREAII) ; 

228  /•  schedule  the  nest  arrival  */ 

229  fddi_gen_schedule  (); 

230  > 

231  > 
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232  /♦*  blocking  aftar  antar  axacntivaa  of  unf oread  atata.  •*/ 

233  FSM.EXIT  (3 . ap_f ddi_gan) 


234  /**  atata  (ARRIVAL)  axit  axacntivaa  aa/ 

235  FSM_STATE_EXIT_UIFORCED  (1,  atatal.axit.axac,  "ARRIVAL") 

236  { 

237  > 


238  /*a  atata  (ARRIVAL)  tranaition  procaaaiag  aa/ 

239  FSM.TRAMSIT.FORCB  (1.  atatal.ant ar.axac ,  ;) 

240  /a - 


241  > 


242  FSM.EXIT  (0 , ap_f ddi_gan) 

243  > 


244  void 

246  ap_fddl_gan_avar  (pra.ptr . var.naaa , var.p.ptr ) 

246  ap_fddi.gan.atat a  *pra_ptr; 

247  char  *var_naaa ,  **var_p_ptr; 

248  i 

249  FII  (ap_fddi_gen_avar  (pra.ptr)) 

260  *var_p_ptr  *  VOS.IIL; 

261  if  (Voa.String. Equal  ("intar.diat.ptr"  ,  var.naaa)) 

262  avar.p_ptr  *  (char  a)  (*pra_ptr->av_intar_diat _ptr) ; 

263  if  (Voa_String_Eqnal  ("lan.diat.ptr"  ,  var.naaa)) 

264  •var.p.ptr  ■  (char  ♦)  (»pra_ptr->av.1 ^a.diat.ptr) ; 

266  if  (Voa.String_Eqnal  ("daat.diat.ptr"  ,  var.naaa) ) 

266  avar.p.ptr  »  (char  a)  (Apra_ptr->av_daat_di»t_ptr) ; 

267  if  (Voa_String_Eqnal  ("pkt .prior ity.ptr"  ,  var.naaa)) 

268  avar.p.ptr  «  (char  a)  (*pra_ptr->»v_pkt_priority_ptr) ; 

269  if  (Voa.StringJEqual  ("aac.objid"  ,  var.naaa)) 

260  avar_p.ptr  ■  (char  *)  (Apra_ptr->Bv_aac_objid) ; 

261  if  (Voa_String_Eqnal  ("ay. id"  ,  var.naaa)) 

262  avar.p.ptr  ■  (char  •)  (*pra _ptr->av_ay_id) ; 

263  if  (Voa_String_Eqnal  ("lov.daat.addr"  ,  var.naaa)) 

264  avar.p.ptr  ■  (char  •)  (8pra_ptr->av_lo»_daat_addr) ; 
266  if  (Voa.String_Bqnal  ("high.daat.addr"  ,  var.naaa)) 

266  *var_p_ptr  •  (char  •)  (tpra_ptr->av_high_da»t_addr) ; 

267  if  (Voa_Striag_Eqoal  ("atation.addr"  ,  var.naaa)) 


*/ 
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268  *yar_p_ptr  »  (char  •)  (*pra_ptr->ey_8tation_addr) ; 

269  if  (Voe_String_ Equal  ("arc.addr"  ,  yar.naae)) 

270  *»ar_p_ptr  ■  (char  *)  (kpra_ptr->ay_arc_addr) ; 

271  if  (?oa_Striug_ Equal  ("low.pkt .priority"  ,  rar.naae)) 

272  *rar_p_ptr  »  (char  *)  (3pra_ptr->a»_lo»_pkt_priority); 

273  if  (Voa_Striag_Equal  ("high_pkt .priority"  ,  rar.naae)) 

274  *»ar_p_ptr  ■  (char  *)  (kpra_ptr->ay_high_pkt_priority); 

275  if  (Voa.String. Equal  (Marrival_rateM  ,  rar.naae)) 

276  *rar_p_ptr  ■  (char  *)  (Jtpra_ptr->BV_arriral_rate) ; 

277  if  (Voa_Striag_Equal  ("aean.pk.len"  ,  rar.naae)) 

278  *rar_p_ptr  ■  (char  *)  (*pra_ptr->BT_aean_pk_len) ; 

279  if  (Voa.String. Equal  ("aaync.aix"  ,  rar.naae)) 

280  *rar_p_ptr  *  (char  *)  (*pra _ptr->ar_aaync .mix) ; 

281  if  (Voa_Striag_Equal  ("aac.iciptr"  ,  rar.naae)) 

282  *rar_p_ptr  ■  (char  *)  (*pra_ptr->Br_nae_iciptr) ; 

283  if  (Voa_String_Equal  (Haac_iciptrlH  ,  rar.naae) ) 

284  *yar_p_ptr  *  (char  *)  (kpra_ptr->av_«ac_iciptrl); 

286  if  (Voa_String_Equal  ("llc.ici.ptr"  ,  rar.naae)) 

286  *rar_p_ptr  ■  (char  *)  (kprs_ptr->av .llc.ici.ptr) ; 

287  if  (Voa_String_Equal  ("pkptrt"  ,  rar.naae)) 

288  *rar_p_ptr  «  (char  *)  (kpri_ptr->ar_pkptrl) ; 

289  FOOT; 

290  > 


291  void 

292  ap_fddi_gen_diag  () 

293  { 

294  Packet  epkptr; 

295  iat  pklen; 

296  iat  deat.addr; 

297  iat  i,  raatrictad; 

298  iat  pkt.prio; 

299  FXI  ( ap.fddi_gen.diag  ()) 


300  FOOT; 

301  } 


302  void 

303  ap.fddi.gen.terainat •  () 

304  < 

306  Packet  epkptr; 

306  iat  pklea; 
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307  int  dest.addr; 

308  iat  i,  restricted; 

308  iat  pkt.prio; 

310  FXI  (sp_lddi_gen_terainate  ()) 


311  FOOT; 

312  > 


313  Coape ode 

314  sp_lddi.gen.init  (pr.state.pptr) 

315  sp_lddi_gen_stat e  **pr_state_pptr; 

316  { 

317  static  Vo»T_Ca_Obtype  obtype  *  OPC.IIL; 

318  FII  (sp.lddi_gen.iait  (pr.state.pptr)) 

318  il  (obtype  «  0PC.IIL) 

320  { 

321  il  (Vos.Catnea.Register  (Mproc  state  vars  (sp_lddi_gea)M, 

322  sizeol  (sp_lddi_gen_state) ,  Vos.Iop,  ftobtype)  »*  VOSC.FAILURE) 

323  FRET  (0PC_C0NPC0DE_F1ILURE) 

324  > 

325  il  ((epr.state.pptr  ■  (sp_lddi_gea_statee)  Vos_Cataea_Alloc  (obtype,  1))  »«  OPC.IIL) 
328  FRET  (0PC.C0MPC0DE.FAIL0RE) 

327  else 

328  { 

328  (*pr_state_pptr)->current .block  =  0; 

330  FRET  (OPC.COMPCODE.SUCCESS) 

331  > 

332  > 


333  /•  static  added  2DEC83,  on  advice  Iron  MILS  */ 

334  static 

336  1 ddi_gen_g  chedul e  () 

338  { 

337  doable  inter.tiae; 

338  /e  obtain  an  interarrival  period  according  to  the  e/ 

338  /e  prescribed  distribution  */ 

340  inter.tiae  *  op.dist.ontcoae  (inter.dist.ptr); 

341  /e  schedule  the  arrival  ol  next  generated  packet  •/ 

342  op.iatrpt.schedule.sell  (op_sia_tiae  ()  +  inter.tiae,  0); 

343  > 
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APPENDIX  E 

SPNI  MAC  “C”  CODE  EXCERPT 

Msp_fddi_mac.pr.c” 


The  line  numbering  in  this  appendix  is  within  this  thesis  only,  and  does  not  corre¬ 
spond  with  that  seen  in  OPNET’s  text  editors. 


1  /**  state  (FR.REPEAT)  enter  executives  **/ 

2  FSM.STATE.EITER.FORCED  (6.  state6_enter_exec,  "FR.REPEAT") 

3  { 

4  /•  Extract  the  destination  address  o 1  the  fraae.  */ 

6  op.pk.nfd.get  (pkptr,  "dest.addr",  ftdest.addr); 

6  /*  If  the  true  is  for  this  station,  aake  a  copy  */ 

7  /•  of  the  fraae's  data  field  and  forward  it  to  */ 

8  /*  the  higher  layer.  ♦/ 

9  /*  14APR94  :  Zn  order  to  send  the  fraaes  which  are  */ 

10  /•  addressed  to  the  reaote  lan,  check  the  address  database  */ 

11  /•  of  reaote  lan.  Fraaes  addressed  to  the  reaote  lan  shouldn't  •/ 

12  /*  be  repeated  in  the  local  ring  —  This  is  a  siaple  forwarding  */ 

13  /*  decision  algoritha,  one  of  the  bridge's  function  */ 

14  /e  -  Karayakaylar  */ 

15  if ((dest.addr  ay.address) 1 1 (dest.addr  <*  9)) 

18  { 

17  /e  record  total  size  of  the  frane  (including  data)  •/ 

18  pk.len  ■  op_pk_ total. size .get  (pkptr); 

19  /•  decapsulate  the  data  contents  of  the  fraae  */ 

20  /*  29JAI94:  a  new  field,  Hpri",  has  been  added  to  •/ 

21  /*  the  fddi_llc.fr  packet  foraat  in  the  Paraneters  */ 

22  /*  Editor,  so  that  output  statistics  can  be  •/ 

23  /e  generated  by  class  and  priority.  -lix  •/ 

24  op_pk_nfd_get  (pkptr,  "info",  Adata. pkptr) ; 

25  op_pk.nfd.get  (pkptr,  "pri",  Apri.level) ; 

28  /e  The  source  and  destination  address  are  placed  in  the  •/ 

27  /•  LLC's  ZCZ  before  delivering  the  fraae's  contents.  */ 

28  op.ici_attr_set  (to.llc.ici.ptr,  "src.addr",  src.addr); 
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29  op.ici.attr.set  (to.llc.ici.ptr,  "dest.addr",  dest.addr); 

30  op_ici_install  (to_llc.ici.ptr); 

31  /•  Bieuit,  as  noted  in  the  FE.RCV  stats,  only  the  */ 

32  /•  trass's  lsading  edge  has  arrived  at  this  tiae,  ths  */ 

33  /s  complete  trass  can  only  bs  dslivsrsd  to  ths  higher  */ 

34  /*  layer  alter  ths  trass's  transsission  delay  has  elapsed.  •/ 

36  /•  (since  decapsulation  ot  ths  trass  data  contents  has  oc cored,  */ 

36  /•  ths  original  MAC  trass  length  is  used  to  calculate  delay)  •/ 

37  tx.tiss  *  (double)  pk.len  /  FDDX.TX.RATE; 

38  op_pk_send_delayed  (data_pkptr,  FDDI.LLC.STRM.OUT,  tx.tiss) ; 

39  /•  lots  that  the  standard  specities  that  the  original  */ 

40  /•  trass  should  be  passed  along  until  the  originating  station  */ 

41  /*  receives  it,  at  vhich  point  it  is  stripped  Iron  the  ring.  */ 

42  /•  Bovever,  in  the  sisulation  sodel,  there  is  no  interest  */ 

43  /*  in  letting  the  trass  continue  past  its  destination  unless  */ 

44  /•  group  addresses  are  used,  so  that  the  ease  trass  could  be  */ 

46  /•  destined  tor  several  stations.  Here  the  trass  is  stripped  •/ 

46  /•  tor  etticiency  as  it  reaches  the  destination;  it  the  sodel  */ 

47  /e  is  soditied  to  include  group  addresses,  this  should  be  changed  */ 

48  /*  so  that  the  trass  is  copied  and  the  original  repeated.  */ 

49  /•  Logic  is  already  present  tor  stripping  the  trass  at  the  origin.  */ 

60  op_pk_destroy  (pkptr); 

61  > 

62  /«  14APE94  :  the  trases  belong  to  this  ring  should  be  repeated.  */ 

63  /•  Thus,  local  trattic  is  constrained. —  This  is  filtering  decision  */ 

64  /«  One  of  the  bridge's  function  -  Karayakaylar  */ 

66  else{ 

66  /•  Repeat  the  original  trass  on  the  ring  and  account  for  */ 

67  /•  the  latency  through  the  station  and  the  propagation  delay  */ 

68  /*  for  a  single  hop.  •/ 

69  /•  (Only  the  originating  station  can  strip  the  trass).  */ 

60  op_pk_send_delayed  (pkptr,  FDDX_PHY_STR1I_0UT, 

61  Fddi.St .Latency  +  Fddi_Prop_Delay) ; 

62  > 

63  > 


64  /**  state  (FR.REPEAT)  exit  executives  **/ 

66  FSH.STATE.EXIT.FORCED  (6,  state6.exit.exec,  "FR.REPEAT") 
66  { 

67  > 
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APPENDIX  F 

SPNI  SINK  “C”  CODE 

“sp_fddi_sink.pr.c” 


The  line  numbering  in  this  appendix  is  within  this  thesis  only,  and  does  not  corre¬ 
spond  with  that  seen  in  OPNET’s  text  editors. 

1  /*  Proem  modal  C  lorm  111a:  sp.fddi.sink.pr.c  */ 

2  /*  Portions  ol  this  Ills  Copyright  (C)  MIL  3,  Inc.  1992  */ 


3  /•  QPIET  systsa  dslinitions  */ 

4  tinclnds  <opn#t.h> 

6  tinclnds  "sp_fddi_sink.pr.h“ 

6  FSH_EXT_DECS 


7  /•  Bsadsr  block  */ 

8  /*  Global*  •/ 

9  /*  positions  0-7  roprsssnt  ths  asynch  priority  levels,  PRIORITIES  +  1  */ 

10  /*  represents  synch  traffic ,  and  grand  totals  are  as  given  in  the  original. 

11  tdefine  PRIORITIES  8  /*  20JAV94  •/ 

12  tdefine  XMITTER.BUST  0  /*10MAY94  */ 


13  static  /•  05FEB94  •/ 

14  double  fddi2_sink_accua_delay  >0.0; 

15  static  /*  05FEB94  */ 

18  double  fddi2_sink_accun_delay_a[PRI0RITIES  +  1]  *  {0. 0, 0.0, 0.0,0. 0,0. 0,0. 0,0. 0,0. 0.0. 0>; 
17  static  /•  0SFEB94  */ 


18  int  fddi2_sink_total_pkt*->  0; 

19  static  /•  05FEB94  •/ 

20  int  fddi2_sink_total_pkts_a [PRIORITIES  ♦  l]  »  <0,  0,  0,  0,  0,  0,  0,  0.  0>; 

21  static  /*  05FEB94  */ 


22  double  fddi2_sink_total_bits  «  0.0; 

23  static  /•  05FEB94  */ 

24  double  fddi2.sink.total.bits_aCPRI0RITIES  ♦  1]  *  <0.0,0. 0,0. 0,0. 0,0. 0,0. 0,0. 0,0. 0,0.0}; 

25  static  /*  06FEB94  */ 


28  double  fddi2_sink_peak_delay  ■  0.0; 

27  static  /♦  05FEB94  •/ 

28  double  f ddi2_sink_peak.delay_a [PRIORITIES  ♦  2]  *  <0.0,0.0,0.0,0.0.0.0,0.0,0.0,0.0,0.0>; 

29  static  /•  05FEB94  */ 

30  int  fddi2_sink_scalar .write  *  0; 

31  static  /•  05FEB94  */ 

32  int  pri2_set  •  20;  /*  20JAI94  */ 
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S3  double 


busy  «  0.0; 


/•  10MAY94  */ 


34  /•  Statistics  used  for  coaaand  link:21APR94  */ 

36  static 

36  iat  fddilp2.total.pkts  *  0; 

37  static 

38  iat  fddilp2_total_pkts_a[PRI0RITIES  ♦  1]  -  <0,  0,  0.  0,  0,  0.  0,  0,  0>; 

39  static 

40  double  fddilp2.total.bits  *  0.0; 

41  static 

42  double  fddilp2_total.bits_a [PRIORITIES  ♦  1]  •  {0.0.  0.0.  0.0.  0.0.  0.0.  0.0.  0.  .  0.0.  0.0} 

43  /*  Externally  defined  global s .  */ 

44  extern  double  f ddi.t.opr  □ ; 

46  /*12JA194: attributes  froa  the  Environs ent  file  */ 

46  double  Off ered.Load;  /*  12JAI94  */ 

47  double  Asynch.0ffered.Load;  /*  12JAI94  */ 

48  /*  transition  expressions  */ 

49  fdefine  EID_0F_SIM  op_intrpt_typ«()  ««  0PC_IITRPT_EIDSm 


50  /•  State  variable  definitions  */ 
61  typedef  struct 


62  { 

53  FSH.SYS.STATE 

64  Gshandle 

65  Gshandle 
56  Gshandle 
67  Gshandle 
58  Gshandle 
69  Gshandle 
80  Gshandle 

61  Gshandle 

62  Objid 

83  }  sp_fddi_sink_state; 


s v_thru2_gshandle ; 
sv_a2_delay .gshandle ; 
sv.ete2.delay .gshandle ; 
sv.thru2_gshandle.a[10) ; 
sv_n2_delay_gshandle_a[10] ; 
sv_ete2.delay_gshandle_a[9] ; 
s v_t2_gshandle ; 
sv_t2.gshandle_a[10] ; 
sv.ny.id; 


84  tdefine  pr.state.ptr 
86  fdefine  thru2_gshandle 

66  fdefine  a2_delay. gshandle 

67  fdefine  ete2_delay_gshandle 
88  fdefine  thru2_gshandle.a 

69  fdefine  n2_delay_gshandle_a 

70  fdefine  ete2_delay_gahandl*_a 

71  fdefine  t2_gshandle 

72  fdefine  t2.gshandle_a 

73  fdefine  ny.id 


((sp.fddi.sink.state*)  SiaI.Kod.State.Ptr) 

pr_state_ptr->sv.thru2_gshandle 

pr_*tat*_ptr->sv_s2_d«lay_g*handle 

pr_stat#_ptr->sv_ete2_delay .gshandle 

pr_state_ptr->sv_thru2.gahandle_a 

pr_state_ptr->av_s2_d«lay_g»handl«_a 

pr_state_ptr->sv_ete2_delay_gshandle_a 

pr.state.ptr- >sv_t2_gshandle 

pr_state_ptr->sv_t2_gahandle_a 

pr_state_ptr->sv_ay_id 
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74  /*  Process  nodal  interrupt  handling  procadara  */ 


75  void 

76  sp.fddi.sink  () 

77  < 

78  doable  delay,  cre&t.tine; 

78  Packet*  pkptr; 

80  Packet*  pkptr 1  ;  /*5APR94*/ 

81  int  src.addr,  ny.addr; 

82  int  dest_addr;/*14APR94*/ 

83  Zci*  froajoac.ici.ptr; 

84  doable  fddi.sink.ttrt; 


86  FSM.EITER  (ep.fddi.eink) 

88  FSM_BLOCK_SWITCH 

87  < 

88  /* - */ 

89  /•*  etate  (DISCARD)  enter  executive*  **/ 

90  FSM_STATE_EITER_UIFORCED  (0.  stateO.enter.exec,  "DISCARD") 

91  { 

92  /*  determine  the  type  of  interrupt  */ 

93  svltch(op_intrpt_type()) 

94  { 

95  /•  check  if  tranaaitter  is  busy  */ 

96  case  OPC.IITRPT.STAT: 

97  { 

98  busy  -  op.stat_local.read  (XMITTER.BUSY) ; 

99  break; 

100  > 

101  /•  check  if  a  packet  has  arrived  */ 

102  case  OPC_IITRPT_STRN: 

103  < 

104  /•  get  the  packet  and  the  interface  control  info  */ 

105  pkptr  ■  op_pk_g*t  (op.intrpt.stra  ()); 

106  froajwc_ici_ptr  *  op.intrpt.ici  (); 

107  /•  20JAI94:  get  the  packet's  priority  level,  vhich  */ 

108  /•  will  be  used  to  index  arrays  of  thrupat  and  delay  */ 

109  /•  coapn tat ions .  */ 

110  /*  pri2_s«t  *  op_pk_priority_get  (pkptr);  doesn't  vork  here  */ 

111  op_pk_nfd_get  (pkptr,  "pri",  Apri2_set);  /*  29JAI94  */ 

112  /•  deteraine  the  tiae  of  creation  of  the  packet  •/ 
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113  op_pk_nfd_get  (pkptr,  Mcr_tia«",  Acreat.time) ; 


114  /*  determine  the  dast  addraaa  of  tha  packet  */  /*18APR94*/ 

115  op_pk_nfd_get  (pkptr ,  Mdeet_addrM,  tdeat.addr); 

116  /•  71PE94 : determine  id  of  on  processor  to  aaa  in  finding  */ 

117  /•  station  addraaa  of  tha  bridge  node  */ 

118  my_id  *  op_id_aalf(); 

119  /*  141PE94  :  alao  gat  ny  own  addraaa  */ 

120  op_ima_obj _attr_gat  (  my_id,  Matation_addraaaH ,  tay.addr); 

121  /•  daatroy  tha  packet  •/ 

122  /*  op_pk_deetroy  (pkptr);  */ 

123  /•  03FEB94:  rather,  enqueue  the  packet.  Thia  will  be  the  */ 

124  /*  firat  atep  toward  developing  a  LAI  bridging  atrnctvre.  */ 

125  /*  -Mix  */ 

126  /*  op_aubq_pk_inaart  (pri.aet,  pkptr,  OPC_QPQS_TAIL) ;  */ 

127  /*  14APR94:  check  the  fraae  paaaed  to  MllcH  ia  deatined  for  */ 

128  /•  thia  atation.  If  it  ia  daatroy  the  packet;  if  not,  allocate  the  packeta  */ 

129  /•  to  the  coaaand  link  tranaaitter  aince  they  are  deatined  for  the  reaote  lan  */ 

130  /*  -Karayakaylar  */ 

131  /*  determine  the  packeta  coming  from  anrface  atationa,  thia  mill  */ 

132  /•  be  counted  for  local  traffic  •/ 

133  /•  9(nine)  ia  model  apecific,  thia  ia  the  Hatation_nnmberH  of  */ 

134  /*  collection  platform  bridge  atation  */ 

135  if ((deat.addr  «*  my_addr)*ft(arc_addr  >9)) 

136  { 

137  /*  add  in  ita  aize  */ 

138  fddi2.aink_total_bita  ♦«  op_pk_total_aize_get  (pkptr); 

139  fddi2_aimk_total_bita_a[pri2_aet]  op_pk_total_aize_get  (pkptr);  /*  20JAI-20APR94  */ 

140  /•  accumulate  delaya  */ 

141  delay  ■  op_aim_tiae  ()  -  creat.time; 

142  fddi2_aink_accum_delay  delay; 

143  fddi2_aink_accum_delay_a[pri2_aet]  +=  delay;  /*  20JAI-20APR94  */ 

144  /•  keep  track  of  peak  delay  value  */ 

145  if  (delay  >  fddi2_eink_peak_delay) 

146  fddi2_aink_peak_delay  «  delay; 

147  /•  20JAI94:  keep  track  by  priority  levela  aa  veil  23JAV-20APR94  */ 

148  if  (delay  >  fddi2_aink_peak_delay_a[pri2_eet]) 

149  fddi2_aink_peak_delay_a[pri2_aet]  ■  delay; 

150  op_pk.deatroy  (pkptr); 

151  /•  increment  packet  counter;  20JAI94  */ 

162  fddi2_aink_total_pkte++; 

153  f ddi2_eink_total_pkta_a[pri2_aet] ♦♦ ; 
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154  /•  if  a  aultiple  of  25  packets  is  r sacked,  update  stats  */ 

155  /*  03FEB94:  [0] -> [7]  represent  asynch  priorities  l->8,  */ 

150  /*  respectively;  [83  represents  synchronous  traffic,  */ 

157  /e  and  [9]  represents  overall  asynchronous  traffic. -I ix  */ 

168  if  (fddi2_sink_total_pkts  %  25  **  0) 

159  { 

160  op_*tat_global_vrite  (thru2_gshandle , 

161  fddi2.sink_total.bits  /  op.siiL.tiae  ()); 

162  op_stat_global_WTite  (thru2_gshandle_a[pri2_set3 , 

163  fddi2.siak_total_bits.aC03  /  op_sia_tiae()); 

164  op_stat_global_write  (thru2_gsbandle_a[0] , 

166  fddi2.sink_total_bits.aCl3  /  op.sia_tiae()); 

166  op_stat global. vrite  (thru2.gshsndle.aCl3 , 

167  fddi2_sink.total_bits_aCpri2.set3  /  op_sia_tiae()) ; 

168  op_stat_global_write  (thrn2.gshandle.aC23 , 

169  fddi2.sink_total_bits.aC23  /  op_sia_tiae()); 

170  op_stat_global_vrite  (thru2_gshandle_a[33 , 

171  fddi2.sink_total_bits.aC33  /  op_sia_tiae()); 

172  op_stat_global_write  (thru2_gshandle_aC4] , 

173  fddi2.sink_total_bits.aC43  /  op_sia.tiae(>); 

174  op_stat_global_srite  (thru2_gehsndle_a[B] , 

175  fddi2.sink_total_bits.aC53  /  op_sia_tiae()); 

176  op_stst_globsl_write  (thru2.gshandle.aC63 , 

177  fddi2_sink.total.bits.aC63  /  op_sin_tiae()) ; 

178  op_stat_global_write  (thru2.gshandle.aC73 , 

179  fddi2.sink_total_bits.aD3  /  op_sia_tiae()); 

180  op_stat_global_write  (thru2_g*handle_s[8] , 

181  fddi2_sink_total.bits.aC83  /  op_sia_tiae()) ; 

182 

/•  30JAI94:  gather  all  asynch  stats  into  one  overall  figure  •/ 


183 

op_stat_global_vrite  (thru2_gshandle_a[93 , 

184 

186 

(fddi2.sink_total.bits  -  fddi2.sink_total_bits.aC83)  / 
op_sia_tiae()); 

186 

/* 

(fddi2_sink.total_bits.aC03 

♦  fddi2_sink_total.bits.aCl3  ♦  */ 

187 

/* 

fddi2_sink.total_bits.aC23 

*  fddi2_sink_total_bits_aC33  +  */ 

188 

/• 

fddi2_sink_total.bits.aC43 

♦  fddi2_sink_total_bits_a[53  +  •/ 

189 

/• 

fddi2.sink_total_bits.aC63 

+  fddi2.sink_total_bits.aD3)  /  */ 

190 

/• 

op_sia_tiae()); 

*/ 

191 

op.stat .global. write  (a2_delay_gshandle , 

192  fddi2_siak_accua_delay  /  fddi2.sink_total.pkts); 

193  op.stat_global_write  (a2.delay_gshandle.aC03 , 

194  fddi2.sink_accua_delay.aC03  /  fddi2_sink_total.pkts.aC03); 
196  op.stat .global. write  (a2.delay_gshandle.aCl3, 

196  fddi2_slak_accua_delay_a[l3  /  fddi2.sink_total_pkts.aCl3); 
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197  op_stat_global_vrit*  (B2.delay_gshandle.aC2] , 

198  2ddi2_sink_accnai.delay_aC2]  /  iddi2_sink_total_pkts_aC2]); 

199  op.atat .global.erite  (n2_delay_gshandle_aC3] , 

200  fddi2.eink_accuB_delay.aC3]  /  lddi2_sink_total_pkts_aC3] ) ; 

201  op.atat .global.srite  (*i2_d#lay_gshandl#_a[4] , 

202  fddi2_aink_accun_d*lay_a[4]  /  fddi2_*ink_total_pkta_a[4] ) ; 

203  op.atat .global. writ*  (a2_d*lay_gshandle_aC5] , 

204  fddi2.aink_accun_delay.aC5]  /  fddi2_aink_total_pkts_a[5] ) ; 

206  op.atat .global. writ#  (n2_d*lay_g*handl#_a [6] , 

208  lddi2_sink_accna_delay_aC6]  /  lddi2_*ink_total_pkta_a[6]); 

207  op.atat .global.rrite  (n2_d#lay_g*handl*_aC7] , 

208  fddi2_*ink_accuB_d*lay_a[7]  /  lddl2.alBk_total_pkta.aC7]); 

209  op.atat.global.BTit*  (B2.dalay_gahaBdla.aC8] , 

210  lddi2_aiBk.accBB_dalay.aC8]  /  lddi2.aiBk_total_pkta.aC8]); 

211  /•  30JAI94:  gathar  all  aayach  atata  into  oaa  ligura  */ 

212  op.atat .global. vrito  (Bt2.dalay_gahaBdla.aC9] , 

213  (lddi2.aiak_accBBt_dalay  -  lddi2.aiBk_accBB_dalay.aC8])  / 

214  (lddi2.aink_total.pkta  -  lddi2.aiBk_total_pkta.aC8])); 


216  /*  (lddi2_aiak_accBa.dalay.aC0]  +  lddi2.aiBk_accBB_dalay.aCl]  +  */ 

216  /•  lddi2.aink_accuB_dalay.aC2]  +  lddi2_aink_accBBL.dalay.aC3]  +  */ 

217  /*  lddi2.aink_accBB_dalay.aC4]  +  lddi2.aiak_accBB_dalay.aC6]  +  */ 

218  /*  lddi2.8ink_accua_dalay.aC6]  +  lddi2.aink_accBB_dalay.aC7])  /  */ 

219  /*  (lddi2.aink_total_pkta.aC0]  +  lddi2_aink_total_pkta_aCl]  ♦  */ 

220  /*  lddi2.8ink_total_pkta.aC2]  ♦  lddi2_sink_total_pkta_aC3]  +  */ 

221  /•  lddi2.aink_total_pkta.aC4]  *  fddi2_#ink_total_pkta_aC6]  ♦  */ 

222  /*  lddi2_aink_total_pkta_aC6]  ♦  lddi2_8ink_total_pkta_aC7])) ;  */ 


223  /*  alao  record  actual  delay  values  */ 

224  op.atat .global.write  (et*2_d*lay_g*handle ,  delay); 

226  op.atat .global.vrite  (et*2_delay_gshandle_aCpri2_a*t] ,  delay); 

226  > 

227  }/*end  ol  if  (dest_addr«ny_addr)ft*(src_addr  >  9)atataaant  */ 

228  /*  20APR94 :  destroy  the  packets  coning  Iron  the  lirat  lan  destined  */ 

229  /•  1 or  this  station. These  packets  are  not  counted  lor  local  traffic.*/ 

230  also  il(dest_addr  *«  ay.addr) 

231  op_pk_daatroy(pkptr) ; 


232  /•  Other  Iraaas  passed  to  "lie"  should  be  destined  lor  other  lan  */ 

233  /•  18APS94  : allocate  the  packets  to  transnitter  ol  coaaand  link  */ 

234  else 

236  { 

236  /*  add  in  its  size  */ 

237  lddilp2.total.bits  op_pk_total_size_get  (pkptr); 

238  lddilp2_total_bits_aCpri2_set]  ♦*  op.pk. total .size .get  (pkptr);  /*  20JAI-20APR94  */ 
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239  /*  increnent  packet  counter;  20APR94  */ 

240  f ddilp2_total_pkts++ ; 

241  f ddilp2_total_pkts_a[pri2_set]  ++ ; 


242  /•  if  a  Multiple  of  25  packets  is  reached,  update  stats  */ 

243  /e  [0] -> [7]  represent  asynch  priorities  l->8,  */ 

244  /*  respectively;  [8]  represents  synchronous  traffic,  */ 

245  /•  and  [93  represents  overall  asynchronous  traffic.-Iiz  */ 

246  if  (fddilp2.total.pkts  X  25  —  0) 

247  { 

248  op_stat_global_write  (t2_gshandle, 

249  fddilp2.total.bits  /  op.sin.tine  ()); 

250  op_stat_global_write  (t2_gshandle_a[pri2_set] , 

251  fddilp2_total_bits_a[03  /  op_sin_tine()); 

262  op_stat.global_vrite  (t2_gshandle_a[0] , 

263  fddilp2_total_bits.a[l3  /  op.sin.tineO) ; 

254  op_stat_global_write  (t2_gshandle_a[l] , 

255  fddilp2.total.bits_a[pri2_set3  /  op_sin_tine()) ; 

256  op_stat_global_write  (t2_gshandle_a[2] , 

257  fddilp2_total.bits_a[2]  /  op_sin_tine()) ; 

258  op_stat_global_vrite  (t2_gshandle_a[3] , 

259  fddilp2_total_bits.a[3]  /  op_sin_ttae()); 

260  op_stat_global_vrite  (t2_gshandle_a[43 , 

261  fddilp2_total_bits.a[43  /  op.sin.tineO); 

262  op_stat_global_irrite  (t2_gshandle_a [5] , 

263  fddilp2_total_bits.a[53  /  op.sin.tineO); 

264  op_stat_global_vrite  (t2_gshandle_a[6] , 

266  fddilp2_total_bits.a[63  /  op.sin.tineO); 

266  op.stat .global. write  (t2_gshandle_a[7] , 

267  fddilp2_total.bits.a[7]  /  op_sin_tine()> ; 

268  op_stat_global_vrite  (t2_gshandle_a[8] , 

269  fddilp2_total.bits_a[83  /  op.sin.tineO) ; 

270  /*  gather  all  asynch  stats  into  one  overall  figure  */ 

271  op_stat_global_vrite  (t2_gshandle.a[9] , 

272  (fddilp2.total.bits  -  fddilp2_total_bits_a[8] )  / 

273  op.sin.tineO) ; 


274  /*  (fddilp2_total_bits_a[03  ♦  fddilp2_total_bits_a[l]  ♦ 

275  /*  fddilp2.total.bits_a[2]  ♦  fddilp2_total_bits_a[3]  ♦  */ 

276  /•  fddilp2.total_bits_a[4]  +  fddilp2_total_bits.a[5]  +  •/ 

277  /•  fddilp2.total_bits.aC6]  ♦  fddilp2_total_bits_a[7])  /  */ 

278  /•  op_sin_tiae());  */ 


279  > 

260  /*  21APR94: allocate  packets  to  the  conn and  link  transnitter  */ 
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381  op_snbq_pk_ins«rt(0 ,  pkptr,  OPC.QPOS.TAIL) ; 

382  /•  check  if  this  subqueue  is  empty  and  transmitter  is  not  busy  */ 

283  if  ((lop.subq_eapty(0))kk(bnsy  »*  0.0)) 

284  { 

285  /*acc«ss  the  first  packet  in  the  subqueue  */ 

286  pkptr 1  *  op_subq_pk_reaove  (0,  0PC_QP0S_HEAD) ; 

287  /*  forward  it  to  the.  transmitter  of  command  link  */ 

288  op_pk_send  (pkptr 1,  0); 

289  > 

290  }/e  end  of  else  */ 

291  break; 

292  >/♦  end  of  case  OPC.IITRPT.STRH  statement  */ 

293  }/*  end  of  switch  */ 


294  > 


295  /**  blocking  after  enter  executives  of  unforced  state.  •*/ 

296  FSK.EXIT  (l.sp.fddi.sink) 


297  /*«  state  (DISCARD)  exit  executives  ••/ 

298  FSM_STATE_EXIT_U*P0RCED  (0,  stateO.exit.exec,  "DISCARD") 

299  { 

300  } 

301  /••  state  (DISCARD)  transition  processing  **/ 

302  FSM.IIIT.COID  (EID.OF.SIM) 

303  FSM  J)FLT_C0ID 

304  FSM_TEST_LOGIC  ("DISCARD") 

305  FSM.TRAISIT.SVITCH 

306  { 

307  FSM.CASE.TRAISIT  (0,  1,  statel.enter.exec,  ;) 

308  FSM.CASB.TRAISXT  (1.  0,  st ateO.ent er.exec ,  ;) 

309  > 

310  /* - */ 


311  /**  state  (STATS)  enter  executives  **/ 

312  FSH_STATB_EITER_UIFORCED  (1.  statel.enter.exec,  "STATS") 

313  { 

314  /*  At  end  of  simulation,  scalar  performance  statistics  */ 
316  /•  and  input  parameters  are  written  out.  */ 

316  /e  This  is  for  command  link  throughput  :21APR94*/ 

317  op.stat.scalar .write  ("CL  Throughput  (bps).  Priority  1", 

318  fddilp2.total_bits.aC0)  /  op.sia.time  ()); 
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310 

320 


op.stat.acalar.srita  ("CL  Throughput  (bps).  Priority  2", 
fddilp2_total_bits_aCl]  /  op_sia„tias  ()); 


321  op.stat.scalar.srits  ("CL  Throughput  (bps),  Priority  3", 

322  fddilp2.total.bits.aC2)  /  op.sia.tias  ()); 

323  op.stat.scalar.srits  (“CL  Throughput  (bps).  Priority  4", 

324  fddilp2.total.bits_a[3]  /  op_sia_tlas  ()); 

325  op.stat.scalar.srits  ("CL  Throughput  (bps).  Priority  5", 

326  fddilp2.total_bits.aC4]  /  op_sia_tias  ()); 

327  op.stat.scalar.srits  ("CL  Throughput  (bps).  Priority  6", 

328  fddilp2_total_bits_aC5]  /  op.sia.tias  ()); 

320  op.stat.scalar.srits  ("CL  Throughput  (bps).  Priority  7", 

330  fddilp2_total_bits_aC6]  /  op.sia.tias  ()); 

331  op.stat.scalar.srits  ("CL  Throughput  (bps),  Priority  8", 

332  fddilp2.total_bits.aC7]  /  op.sia.tias  ()); 

333  op.stat.scalar.srits  ("CL  Throughput  (bps).  Asynchronous", 

334  (fddilp2.total.bits  -  fddilp2_total_bits_aC8] )  /  op_sia_tiao  ()); 


336 

336 

337 

338 
330 


/•  (fddilp2_total.bits.aC0] 
/*  lddHp2_total.bits.aC2) 
/•  fddilp2.total_bits.aC4] 
/s  fddilp2.total_bits.aC6] 
/*  op_sia_tias  ()); 


♦  fddilp2_total_bits_aCl]  ♦  */ 

♦  fddilp2.total_bits.aC3]  ♦  */ 

♦  fddilp2.total_bits.aC5]  ♦  */ 

♦  fddilp2.total_bits.aC7])  /  */ 


340  op.stat.scalar.srits  ("CL  Throughput  (bps).  Synchronous", 

341  fddilp2_total.bits.aC8]  /  op.sia.tias  ()); 

342  op.stat.scalar.srits  ("CL  Throughput  (bps),  Total”, 

343  fddilp2.total.bits  /  op.sia.tias  ()); 


344  /*  Only  oas  station  nssds  to  do  this  for  ths  sscond  ring (Ring  1)*/ 

345  if  (Ifddi2_sink_scalar_srits) 

346  { 

347  /•  sst  ths  scalar  srits  flag  */ 

348  fddi2_sink_scalar .srits  *  1; 

340  op.stat.scalar.srits  ("Nsan  End-to-End  Dslay-1  (ssc.).  Priority  1", 
350  fddi2.sink_accua_dslay.aC0]  /  fddi2.sink.total_pkts.aC0]); 


*/ 
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351 

362 

353 

364 

356 

356 

357 

358 

360 

360 

361 

362 

363 

364 

365 

366 

367 

368 

/* 

360 

/• 

370 

/• 

371 

/• 

372 

/• 

373 

/* 

374 

/* 

376 

/* 

376 

377 

378 

370 

op.stat.scalar.nrita  ("Mean  End-to-End  Delay- 1 ( aac. ) ,  Priority  2" , 
lddi2_sink_accun_delay_aCl]  /  lddi2_sink_total_pkts_aCl]) ; 

op.stat.scalar.nrita  ("Mean  End-to-End  Dalay-1  (sac.).  Priority  3". 
lddi2_sink_accun_delay_aC2]  /  lddi2_sink_total_pkts_aC2] ) ; 

op.atat.scalar.vrita  ("Maan  End-to-End  Dalay-1  (sac.).  Priority  4", 
lddi2_sink_accua_delay_aC3]  /  lddi2_sink_total_pkts_aC3] ) ; 

op.stat.scalar.vrita  (“Naan  End-to-End  Dalay-1  (sac.).  Priority  5", 
lddi2_sink_accusu.dalay.aC4)  /  lddi2_sink_total_pkts_a[4] ) ; 

op.stat.scalar.vrita  ("Naan  End-to-End  Dalay-1  (sac.),  Priority  6", 
lddi2_sink_accun_delay_a[5]  /  lddi2_sink_total_pkts_a[5]) ; 

op.stat.scalar.nrita  (“Naan  End-to-End  Dalay-1  (sac.),  Priority  7", 
fddi2_sink_accua_dalay_a[6]  /  fddi2_sink_total_pkta_a[6] ) ; 

op.stat.scalar.vrita  (“Naan  End-to-End  Dalay-1  (sac.).  Priority  8“, 
lddi2_sink_accun_dalay_a(7]  /  lddi2_sink_total_pkts_a[7]) ; 

op_stat_scalar_vrita  (“Naan  End-to-End  Dalay-1  (sac.).  Asynchronous", 
(lddi2_sink_accu«_dalay  -  lddi2_sink_accua_dalay_a[8])  / 
(fddi2_sink_total_pkts  -  fddi2_sink_total_pkts_a[8])) ; 

(lddi2_sink_accusi_dolay_a[0)  +  lddi2_sink_accua_delay_a[l]  +  */ 

lddi2_sink_accun_dalay_a[2]  ♦  lddi2_sink_accun_dalay_a[3]  +  */ 

lddi2_sink_accun_delay_aC4]  ♦  Iddi2_sink_accua_dalay_a[6)  +  */ 

lddi2_s ink.accun.dalay _a [6]  ♦  lddi2_sink_accua_dalay_a[7])  /  */ 

(lddi2_sink_total_pkts_aC0)  +  lddi2_sink_total_pkts_a[l]  ♦  */ 

fddi2_sink_total_pkts_a[2]  *  lddi2_sink_total_pkts_a[3]  ♦  */ 

lddi2_sink_total_pkts_aC4]  +  lddi2_sink_total_pkts_a[S]  +  */ 

fddi2_sink_total_pkts_a[6]  ♦  lddi2_sink_total_pkts_a[7])) ;  */ 


op.stat.scalar.nrita  (“Naan  End-to-End  Dalay-1  (sac.).  Synchronous”, 
lddi2.sink_accusLdalay.aC8]  /  lddi2_sink_total_pkts_aC8]) ; 

op.stat.scalar.nrita  ("Naan  End-to-End  Dalay-1  (sac.).  Total”, 
lddi2_sink_accua_dalay  /  lddi2.sink_total.pkts); 


380  op.stat.scalar.nrita  (“Throughput-1  (bps).  Priority  1“, 

381  lddi2_sink_total.bits.aC0]  /  op.sin.tina  ()); 

382  op.stat.scalar.nrita  (“Throughput-1  (bps).  Priority  2", 

383  lddi2_sink_total_bits_aCl]  /  op_sin_tins  ()); 

384  op.stat.scalar.nrita  ( "Throughput -1  (bps).  Priority  3", 

386  lddi2_sink_total_bits_aC2]  /  op.sin.tina  ()); 

386  op.stat.scalar.nrita  ("Throughput-1 (  bps),  Priority  4“, 
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387 


lddi2_sink_total_bita_a[33  /  op_aiB_tiBe  ()); 


388  op.stat.scalar.vrits  ( "Throughput -1  (bps).  Priority  5", 

389  lddi2.sink_total_bits.aC43  /  op_siB_tiBa  ()); 

390  op.stat.scalar.vrits  ("Throughput-1  (bps).  Priority  8", 

391  lddi2.sink_total_bits.aC53  /  op.sisL.tias  ()); 

392  op.stat.scalar.vrits  ("Throughput-1  (bps) ,  Priority  7" , 

393  lddi2_sink_total_bits_a£63  /  op_sia_tias  ()); 

394  op.stat.scalar.vrits  ("Throughput-i  (bps).  Priority  8", 

396  lddi2.sink_total_bits.aC73  /  op.8ia.tias  ()); 

396  op.stat.scalar.vrits  ("Throughput-1  (bps).  Asynchronous", 

397  (lddi2.sink.total.bits  -  lddi2.sink_total.bits.aC83)  /  op.sia.tias  ()); 


398  /*  (lddi2_sink_total.bits.aC03  +  lddi2.siak_total_bits.aCl3  ♦  */ 

399  /*  lddi2.sink_total_bits.aC23  ♦  lddi2_siak_total_bits_aC33  +  */ 

400  /*  iddi2.sink_total_bits.aC43  ♦  lddi2_sink.total_bits.aC63  +  */ 

401  /•  lddi2_sink_total_bits_a£63  ♦  lddi2.sink_total_bits.aC73)  /  */ 

402  /*  op.sia.tias  ());  */ 


403  op.stat.scalar.vrits  ("Throughput-1  (bps).  Synchronous", 

404  lddi2.sink_total.bits.aC83  /  op_sia_tiao  ()); 

406  op.stat.scalar.vrits  ("Throughput-1  (bps).  Total", 

406  lddi2.sink_total.bits  /  op.sia.tias  ()); 


407  op.stat.scalar.vrits  ("Psak  End-to-End  Dslay-1  (sec.).  Priority  1", 

408  lddi2.sink_psak_dslay.aC03 ) ; 

409  op.stat.scalar.vrits  ("Peak  End-to-End  Dslay-1  (sec.).  Priority  2", 

410  lddi2.sink_poak_dslay.aCl3); 

411  op.stat.scalar.vrits  (“Psak  End-to-End  Dslay-1  (sec.).  Priority  3", 

412  lddi2.sink_psak_dslay.aC23 ) ; 

413  op.stat.scalar.vrits  ("Psak  End-to-End  Dslay-1  (see.),  Priority  4", 

414  lddi2.sink_psak_dolay.aC33); 

416  op.stat.scalar.vrits  ("Psak  End-to-End  Dslay-1  (see.).  Priority  6", 

416  lddi2.sink_poak_dslay.aC43); 

417  op.stat.scalar.vrits  ("Psak  End-to-End  Dslay-1  (sec.).  Priority  6", 

418  lddi2.sink_psak_dslay.aC63 ) ; 
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410 

420 


op_atat.sealar.vrit*  ("Peak  End-to-End  Delay-1  (sec.),  Priority  7", 
fddi2_sink_psak_dslay_a[6] ) ; 

421  op.stat.scalar.vrite  ("Peak  End-to-Ead  Delay- 1  (a*c. ) ,  Priority  8". 

422  fddi2_sink_peak_dslay_a[7] ) ; 

423  op.atat.scalar.nrit*  ("Peak  End-to-Ead  D*lay-1  (sec.),  Synchronoua", 

424  fddi2_sink_psak_delay_a[83 ) ; 

425  op.atat.scalar.nrit*  ("Peak  End-to-Ead  D*lay-1  (sec.),  Overall", 

426  lddi2_sink_p*ak_d*lay) ; 


427  /♦  Writ*  th«  TTST  vain*  for  ring  0.  This  preserve*  */ 

428  /*  the  old  behavior  for  single-ring  a  isolations.  */ 

420  op.atat.scalar.nrit*  ("TTRT  (sec.)  -  Ring  1", 

430  fddi.t.opr  [l]); 

431  /*  12JAI94:  obtain  off*r*d  load  information  frost  the  Environment  */ 

432  /*  file;  this  vill  be  used  to  provide  abscissa  information  that  */ 

433  /*  can  be  plotted  in  the  Analysis  Editor  (see  "fddi.sink"  STATS  */ 

434  /•  state.  To  the  user:  it's  your  job  to  keep  these  current  in  */ 

435  /*  the  Environment  File.  -lix  */ 

436  op_ima_sim_attr_g*t  (0PC_IMA_D0UBLE,  ”total_offered_load_l",  AOff ered.Load) ; 

437  op_ima_sim_attr_get  (0PC_IMA_D0UBLE,  "asynch_off*red_load_l",  AAsynch.Offered.Load); 


438  /*  12JAK94:  nrite  the  total  offered  load  for  this  run  */ 

430  op.stat.scalar.vrite  ("Total  Offered  Load-1  (Mbps)", 

440  Off ered.Load) ; 

441  op.stat.scalar.vrite  ("Asynchronous  Offered  Load-1  (Mbps)", 

442  Asynch.Offered.Load) ; 

443  > 

444  } 


446  /*•  blocking  after  enter  executives  of  unforced  state.  **/ 
446  FSM.EXIT  (3,sp_fddi_sink) 


447  /**  state  (STATS)  exit  executives  •*/ 

448  FSM.STATE.EXIT.UMFORCED  (1.  statel.exit.exec,  "STATS") 
440  { 

460  > 


451  /**  state  (STATS)  transition  processing  **/ 
462  FSM.TRAISIT.MISSI1G  ("STATS") 
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454  /••  state  (HIT)  antsr  executives  *♦/ 

455  FSH_STATE_EITER_FORCED  (2.  state2.enter.exec,  "HIT") 

455  { 

457  /•  get  the  gshandles  of  the  global  statistic  to  be  obtained  */ 

458  /•  20JAI94:  set  array  format  */ 


469  thru2_gshandle_a[0] 

450  thru2_gshandle_a[l] 

451  thru2_g*handle_a [2] 

452  thra2_gahandle_a [3] 

453  thru2_gshandle_a  [4] 

454  thru2_gshandle_aC5] 

455  thru2_gshandle_a [5] 
455  thru2_gshandle_aC7] 
457  thru2_gshandle_aC8] 

488  thrn2_gshandle_a [9] 

489  thru2_gshandle 


op.stat .global.reg 
op.stat .global.reg 
op.st at  .global.reg 
op.stat  global.reg 
op.st at .global.reg 
op_stat.global.reg 
op. s t at .global _r eg 
op.stat .global.reg 
op.8tat_global.reg 
op.stat .global.reg 
op.stat.global.reg 


("pri  1  throughput- 1 
(Mpri  2  throughput- 1 
(Hpri  3  throughput- 1 
("pri  4  throughput -1 
("pri  5  throughput- 1 
("pri  6  throughput- 1 
("pri  7  throughput- 1 
("pri  8  throughput- 1 
("synch  throughput-1 
("async  throughput-1 
("total  throughput-1 


(bps)"); 
(bps)"); 
(bps)"); 
(bps)"); 
(bps)") ; 
(bps)"); 
(bps)"); 
(bps)"); 
(bps)"); 
(bps)"); 
(bps)"); 


470  a2_delay_gshandle_a [0]  « 

471  ■2_delay.gshandle.aCl]  * 

472  m2_delay_gshandle_a [2]  * 

473  a2_delay_gshandle_a[3]  * 

474  a2_delay_gshandle_a[4]  = 

475  ■2_delay_gshandle_a[5]  = 
475  ■2_delay_gshandle_a[6]  * 

477  a2_delay_gshandle_aC7]  • 

478  ■2_delay_gshandle_a[8]  ■ 

479  B2.delay_gshandle.aC9]  * 

480  a2_delay_gshandle  ■ 


op.stat .global.reg 
op.stat .global.reg 
op.stat .global.reg 
op.st at .global.reg 
op.stat .global.reg 
op.stat .global.reg 
op.stat .global.reg 
op.stat .global.reg 
op.stat .global.reg 
op_stat_global_reg 
op.st at  .global.reg 


("pri  1  aean  delay-1 
("pri  2  aean  delay-1 
("pri  3  aean  delay- 1 
("pri  4  aean  delay- 1 
("pri  5  aean  delay- 1 
("pri  6  aean  delay- 1 
("pri  7  aean  delay- 1 
("pri  8  Bean  delay-1 
("synch  aean  delay- 1 
("async  aean  delay-1 
("total  aean  delay- 1 


(sec.)"); 

(sec.)"); 

(sec.)"); 

(sec.)"); 

(sec.)"); 

(sec.)"); 

(sec.)"); 

(sec.)"); 

(sec.)"); 

(sec.)"); 

(sec.)"); 


481  ete2_delay_gshandle_a[0] 

482  ete2_delay_gshaadle_aCl] 

483  ete2_delay_gshandle_a[2] 

484  etc2_dolay_gshandle_a[3] 

485  cte2_delay_gshandle_aC4] 
485  ete2_delay_gshandle_a[5] 

487  ete2_delay.gshandle.aC6] 

488  ete2.delay.gshandle.aC7] 

489  ete2_delay_gshandle_aC8] 

490  ete2_delay_gshandle 


*  op.stat_global.rsg  ("pri  1 

*  op_stat.global.reg  ("pri  2 

■  op.stat.global.reg  ("pri  3 

■  op_stat_global_reg  ("pri  4 

*  op_stat.global.reg  ("pri  5 

*  op.stat.global.reg  ("pri  6 

*  op.stat.global.reg  ("pri  7 
=  op_stat.global.reg  ("pri  8 
=  op.stat .global.reg  ("synch 

■  op.stat.global.reg  ("total 


end-to-end  delay-1  (sec.)"); 
end-to-end  delay-1  (sec.)"); 
end-to-end  delay-1  (sec.)"); 
end-to-end  delay-1  (sec.)”); 
end-to-end  delay-1  (sec.)"); 
end-to-end  delay-1  (sec.)"); 
end-to-end  delay-1  (sec.)"); 
end-to-end  delay-1  (sec.)"); 
end-to-end  delay-1  (sec.)"); 
end-to-end  delay-1  (sec.)"); 


491  t2_gshandle_aC0]  * 

492  t2_gshandle_aCl]  * 

493  t2_gshandle_aC2]  - 

494  t2_gsbandle_aC3]  ■ 

496  t2.gshaadle.aC4]  ■ 

495  t2_gshandle_aC5]  * 

497  t2_gshandle.aC6]  * 

498  t2_gshandle_a [7]  « 


op.stat .global.reg  ("pri  1 
op.stat .global.reg  ("pri  2 
op.stat .global.reg  ("pri  3 
op.stat .global.reg  ("pri  4 
op.stat .global.reg  ("pri  5 
op.stat.global.reg  ("pri  5 
op.stat .global.reg  ("pri  7 
op.stat.global.reg  ("pri  8 


CL  throughput  (bps)") 
CL  throughput  (bps)") 
CL  throughput  (bps)") 
CL  throughput  (bps)") 
CL  throughput  (bps)") 
CL  throughput  (bps)”) 
CL  throughput  (bps)") 
CL  throughput  (bps)") 
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499  t2_gshandls_a[8] 

500  t2_gshaadls.aC9] 

501  t2_gshandls 


op_stat_global_rsg  ("synch  CL  throughput  (bps)"); 
op_stat_global_rsg  ("ujnc  CL  thronghpat  (bps)"); 
op.stst_global.rsg  ("total  CL  throughput  (bps)"); 


602  > 


503  /**  stats  (HIT)  szit  szscutivss  **/ 

604  FSM_STATE_BXIT_FORCED  (2,  stats2.szit.szsc,  "HIT") 

605  { 

506  > 


507  /••  stats  (IIIT)  transition  procsssing  **/ 

508  FSX.HIT.COID  (EID.OF.SIM) 

509  FSM_DFLT_COID 

510  FSM.TEST.LOGIC  ("HIT") 

611  FSM.TRAISIT.SVITCB 

512  { 

513  FSM.CASB.TEAISIT  (0,  1,  statsl.sntsr.szsc,  ;) 

514  FSN.CASE.TRAISIT  (1,  0,  statsO.sntsr.szsc,  ;) 

515  > 


517  > 


618  FSN.EZIT  (2,sp_lddi_sink) 

619  > 


620  void 

621  sp.lddi_sink.svar  (prs_ptr , var.naas , var.p.ptr) 

622  sp_lddi_sink_stats  sprs.ptr; 

623  char  *var_naas ,  **var_p_ptr; 

624  < 

526  FH  (sp.lddi_sink.svar  (prs_ptr)) 

626  svar.p_ptr  •  VOS.IIL; 

627  il  (Vos_String_Equal  ("thra2_gshandls"  ,  var.naas)) 

528  *var_p_ptr  *  (char  *)  (tprs_ptr->sv_thru2_gshandla) ; 

529  il  (Yos_String_Eqnal  ("a2_dslay_gshandls"  ,  var.naas)) 
630  *var_p_ptr  ■  (char  *)  (tprs_ptr->sv_a2_dslay.gshandls) ; 
531  il  (Vos_String_Equal  ("sts2_dslay_gshandls”  ,  var.naas)) 
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532  *var_p_ptr  «  (char  *)  (Aprs_ptr->av_ete2_delay_gehandle); 

533  if  (Voe_String_Equal  ("thru2_g«haadle_aM  ,  var_naae)) 

534  *var_p_ptr  ■  (char  *)  (pr8_ptr->av_thru2_g»handle_a) ; 

635  if  (Vos_Striag_Equal  ("u2_delay_gsha&dle_aM  ,  Tar.naa*)) 

536  *var_p_ptr  «  (char  •)  (prs_ptr->sv_K2_delay_g*ha&dle_a) ; 

537  if  (Voi_String_ Equal  (Hete2_delay_gshandle_aH  ,  var_naa«) ) 

638  *var_p_ptr  ■  (char  *)  (pr«_ptr->»v_*te2_d*lay_g»handl*_a) ; 

639  if  (Voa_Striug_Equal  (ut2_gahaudleH  ,  var_naue)) 

540  •▼ar.p.ptr  ■  (char  •)  (ipra_ptr->«T_t2_gahaudl«) ; 

641  if  (Voe_Striag_ Equal  (“t2_g*handle_aM  ,  var_naae)) 

642  *var_p_ptr  *  (char  a)  (prs_ptr->8v_t2_g*handle_a) ; 

543  if  (Voa_Striag_Equal  ("*y_idM  ,  var.nau*)) 

544  *var_p_ptr  ■  (char  *)  (Apra_ptr->8v_uy_id) ; 

545  POUT; 

546  > 


547  void 

648  >p_fddi_sinfc_diag  () 

549  { 

550  double  delay,  creat.tiue; 

561  Packet*  pkptr; 

662  Packet*  pkptrl  ;  /*5APR94*/ 

563  iut  erc.addr,  ay.addr; 

654  iut  dest.addr ; / * 14APR94*/ 

555  lei*  frou_aac_ici_ptr; 

556  double  f ddi.eink.ttrt ; 


667  FII  (»p_fddi_«ink_diag  ()) 


658  FOOT; 
669  > 


560  void 

661  ap.fddi.sink.teruiuate  () 

562  { 

563  double  delay,  creat.tiue; 

564  Packet*  pkptr; 

566  Packet*  pkptrl  ;  /*6APR94*/ 

666  iut  src.addr,  uy.addr; 

667  iut  deet_addr;/*14APR94*/ 

668  Zei*  frou_uac_ici_ptr ; 

569  double  f ddi.eink.ttrt ; 
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570  FIX  ( ap_f  ddi_a ink.t arminat •  ()) 


671  FOOT; 
572  > 


673  Coapcoda 

574  ■p.Xddi.siak.iait  (pr_atata_pptr) 

576  sp_fddi.si&k_stata  **pr_atata_pptr; 

570  { 

677  static  ¥oaT_Ck_0btypa  obtypa  ■  0PC.IIL; 

678  FIX  (■p_fddi_»ink_init  (pr_atata_pptr)) 

579  if  (obtypa  ■»  0PC.XXL) 

580  { 

681  if  (Voa_Cata«a_R«giatar  ("proc  stata  vara  (ap_fddi_aink)M, 

582  aizaof  (ap_fddi_aink_atata) ,  Voa.Xop,  t obtypa)  ■«  VOSC.FAILURE) 

683  FRET  (0PC_C0HPC0DE_FAILURE) 

584  > 

585  if  ((*pr_atata_pptr  ■  (ap_fddi_aink_atata*)  Voa_Cataaa_Alloc  (obtypa,  1))  **  0PC.XIL) 

588  FRET  (0PC.C0NPC0DE.FAILURE) 

687  alaa 

688  { 

589  (*pr_atata_pptr)->currant_block  *  4; 

590  FRET  (0PC.C0MPC00E.SUCCESS) 

691  > 

692  > 
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APPENDIX  G 

CDL  MODEL  ERROR  ALLOCATION  CODE 


“cdl_pt_error.ps.cM 

The  line  numbering  in  this  appendix  is  within  this  thesis  only,  and  does  not  corre¬ 
spond  with  that  seen  in  OPNET’s  text  editors. 

1  /*  cdl_pt.error.ps. e  */ 

2  /*  Custoalxed  error  allocation  aodol  lor  point-to-point  link  transceiver  pipeline  */ 


3  /eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee/ 

4  /•  Last  modified  by  Selcuk  Karayakaylar  */ 
6  /•  22APR94  */ 
«  /eeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee/ 


7  # include  <opnet.k> 

8  # include  <aath.h> 


9  /•  Define  a  convenient  macro  for  computing  */ 

10  /*  factorials  using  the  ganma  function  */ 

11  fdefine  log_f actor ial(n)  1 gamma  ((double)  n  +  1.0) 

12  void 

13  cdl_pt_error  (pkptr) 

14  Packet*  pkptr; 

IB  { 

16  Objid  link.obj id; 

17  double  pe,  r,  p.accua,  p_ exact; 

18  double  log_pl.  log_p2,  log_arrange; 

19  double  duty. cycle;  /*  31HAR94  */ 

20  double  jan_length,  jaa_ber.int_bet_jaaQ.en,  ber_bet_jaalen;/*29llAE94*/ 

21  double  tiae.staap;  /*  tine  stamp  for  the  packet  arriving  tiae  */ 

22  double  offset;  /*  1APR94  •/ 

23  int  invert.errors  *  OPC.FALSE,  seg_size,  nua.errs; 

24  int  jamaer_type ; /*26APR94*/ 

25  /*int  channel. index ; */  /*  4APR94  •/ 

26  /**  Compute  the  nuaber  of  errors  assigned  to  the  given  packet  **/ 

27  /••  based  on  its  length  and  the  bit  error  probability.  •*/ 

28  PZI  (cdl_pt_error  (pkptr)) 

29  /*Maka  a  tiae  staap  to  see  shether  the  packet  is  in  j easing  period  or  not  */ 

30  tiae.staap  ■  op_sia_tiae() ; 

31  /*printf ("tiae.staap  *  %16.12f\n",  tiae.staap);*/ 

32  /*  Obtain  object  id  of  point-to-point  link  carrying  transaission.  */ 

33  link.objid  *  op.td_get.int  (pkptr,  0PC.TDA.PT.LI8K.0BJID) ; 
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■.  PW.WHI  V.  - ,  .J  ■  J.  '•' : . ■*. 


34  /•  Obtain  tha  channal  iadax  lor  tha  particular  link  */ 

SS  /*  Dataraina  which  channal  tha  packat  is  on  *//*30KAR*/ 

36  /•  channal.indax  ■  op_td_gat_int  (pkptr,0PC_TDA_PT_CH_IIDEX);*//*4APR94*/ 

37  /•  Obtain  tha  bit-error  probability  of  tha  channal.  •/ 

38  /a  op_iaa_obj_attr_get  (link_objid.  "bar",  kpa);  *//*ignore  this  attributa  31MAR94*/ 

38  /*  Obtain  tha  axtandad  attributas  for  tha  point-to-point  link  */ 

40  /*  Thasa  attributas  ars  appandad  in  ordar  to  siatulata  jaaaing  faaturas  */ 

41  /*  29MAR94  */ 


42 

43 

44 
46 

46 

47 


op.ian_obj_attr_gat 
op_iaa_obj_attr_get 
op_iaa_obj_attr_gat 
op_ina_ob j _attr_gat 
op_i*a_obj_attr_get 
op_ima_obj _attr_gat 


(li.nk_.obj  id, 
(link.objid, 
(link_objid, 
(link.objid, 
(link.objid. 
(link.objid, 


Hjaa_lengthH,  kjaa_length) ; 

"jaa_berM,  *jaa_bar); 

'‘interv&l_bet_jam_lanM ,  Aint.bet.jaalen); 
Hbar_bat_ j aa_len” ,  Aber_bet_ jaalen) ; 
Minit_jaa_offsatM,  koffsat); 

” jaaaer_typ*H ,  kjaaaer.type) ; 


48  /*  Obtain  tha  langth  of  tha  packat.  */ 

48  sag_siza  •  op_pk_total_siza_gat  (pkptr); 


60 

61 

62 

63 

64 
66 
66 

67 

68 
69 
80 
81 
62 
63 


/*  Dataraina  tha  jaaaar  type  in  use:26APR94  */ 

/*  Chack  if  pulsad  jaaaar  is  in  usa  */ 
if  (jaaaar. typa  «  0) 

/*  Randoaiza  tha  jaaaing  durations  */ 

/*  Thasa  durations  ara  randoaizad  with  uniform  distribution  */ 

/*  in  ranga  [0,  durationC.  Usar  should  ba  awara  of  thasa  */ 

/*  attributas  spacifiad  in  tha  environaent  fila.  Thay  ara  wax  values  */ 
/*  for  thosa  particular  durations  */ 
jaa.langth  *  op_dist_uniforn(jaa_lsngth) ; 
int.bet.jaalen  *  op_dist_unifora(int_bat.jaalan) ; 

> 

/*  Otharwisa,  channal  swapt  jaaaar  is  in  usa.  Jaaaing  durations  */ 

/*  should  not  ba  randoaizad  to  kaap  consecutive  pulses  in  ordar.  •/ 


64  /*  Compute  duty  cycle  for  jaaaaing  */ 

66  duty.cyde  *  jaa_ length  ♦  int.bet.jaalen; 


66  /*  Chack  tiaa  staap  if  it  is  in  tha  initial  jaa  offset  period  */ 

67  /*  All  BEE's  ara  uniformly  distributed  in  ranga  [0,  bar[,  so  that  */ 

68  /*  realistic  representation  is  provided;  Usar  should  ba  awara  of  */ 

69  /*  thasa  attributes  spacifiad  in  tha  environaent  fila.  Thay  ara  sax  values  */ 

70  /a  for  thosa  particular  bars*/ 

71  if  ftiae.staap  <  offset) 

72  pa  ■  op_dist_unifora(ber_bet_jaalen) ;  /*  tha  packat  is  still  not  in  tha  jaaaing  •/ 

73  /*  period  */ 

74  also 

76  < 

76  /*  Chack  packat  is  in  jaaaing  period  */ 
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77  if  (  lmod(time_stamp,duty_cycle)  <=  jam. length  ) 

78  pe  *  op_dist_uniform(jam_b*r) ;  /*  the  packet  ie  in  jamming  period,  */ 

78  /*  random  "pe"  to  be  computed  as  jam_ber  */ 

80  else 

81  pe  «  op.dist_unilorm(ber_bet_jamlen);  /*  packet  is  in  un jammed  period  */ 

82  /*  random  "pe"  to  be  computed  as  ber.bet.jamlen  */ 

83  > 


84  /*This  part  computes  num_errs  lor  the  packet  */ 

85  /*  Case  1:  il  the  bit  error  rate  is  zero,  so  is  the  number  o 1  errors.  */ 

88  il  (pe  «  0.0  II  seg_size  «  0) 

87  num_errs  ■  0; 


88  /*  Case  2:  il  the  bit  error  rate  is  1.0,  then  all  the  bits  are  in  error.*/ 

89  /*  (note  however,  that  bit  error  rates  should  not  normally  exceed  0.5).*/ 

80  else  il  (pe  >=  1.0) 

81  num_errs  =  seg.size; 


92 

93 
84 

95 

96 

97 

98 

99 

100 
101 
102 
103 


/*  Case  3:  The  bit  error  rate  is  not  zero  or  one.  */ 

else 

/•  11  the  bit  error  rate  is  greater  than  0.5  and  less  than  1.0,  invert 
/•  the  problem  to  lind  instead  the  number  ol  bits  that  are  not  in  error 
/*  in  order  to  accelerate  the  performance  ol  the  algorithm.  Set  a  llag 
/*  to  indicate  that  the  result  sill  then  have  to  be  inverted, 
il  (pe  >  0.5) 


pe  *  1.0  -  pe; 
invert.errors  *  0 PC. TRUE; 
> 


*/ 

*/ 

*/ 


*/ 


104  /*  The  error  count  can  be  obtained  by  mapping  a  uniform  random  number  */ 

106  /*  in  [0,  1[  via  the  inverse  ol  the  cumulative  mass  function  (CNF)  */ 

106  /*  lor  the  bit  error  count  distribution.  */ 


107  /*  Obtain  a  uniform  random  number  in  [0,  1[  to  represent  */ 

108  /*  the  value  ol  the  CDF  at  the  outcome  that  will  be  produced.  */ 

109  r  *  op.dist.uniform  (1.0); 

110  /*  Integrate  probability  mass  over  possible  outcomes  until  r  is  exceeded.  */ 

111  /*  The  loop  iteratively  corresponds  to  "inverting”  the  CNF  since  it  finds  */ 

112  /*  the  bit  error  count  at  which  the  CNF  first  meets  or  exceeds  the  value  r.  */ 

113  lor  (p.accum  *  0.0,  num_errs  *  0;  num.errs  <*  seg.size;  num_errs++) 

114  { 

115  /*  Compute  the  probability  ol  exactly  'num.errs'  bit  errors  occurring.  */ 

116  /*  The  probability  that  the  first  *num_errs'  bits  sill  be  in  error  */ 

117  /*  is  given  by  pow  (pe,  num.errs) .  Here  it  is  obtained  in  logarithmic  •/ 

118  /*  form  to  avoid  underflow  lor  small  'pe'  or  large  'num.errs. jam’ . 

119  log-Pl  *  (double)  nun_errs  *  log  (pe); 
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/*  Similarly,  obtain  tha  probability  that  tbo  remaining  bits  till  sot 
/*  bo  in  arror.  Tbs  combination  of  tbsss  two  events  rapr as ant s  ona 
/*  possibla  configuration  of  bits  yielding  a  total  of  ’nnm_arrs ’  errors. 
log_p2  *  (doable)  (seg_size  -  naa_errs)  *  log  (1.0  -  pa); 

/*  Compute  tba  number  of  arrangements  that  are  possible  with  the  same 
/*  number  of  bits  in  error  as  the  particular  case  above.  Again  obtain 
/*  this  number  in  logarithmic  fora  (to  avoid  overflos  in  this  case). 

/*  This  result  is  expressed  as  the  logarithmic  fora  of  tha  formula  for 
/*  tha  number  I  of  combinations  of  k  items  from  n:  I  =  n!/(n-k)!k! 
log_arrange  a  log_factorial  (seg_size)  - 
log_factorial  (nun_errs)  - 
log_factorial  (seg_size  -  nua_arrs); 

/*  Compute  tha  probability  that  exactly  'nua.errs ’  are  present  */ 

/*  in  tha  segment  of  bits,  in  any  arrangement, 
p.exact  •  exp  (log_arrange  ♦  log_pl  +  log_p2); 

/*  Add  this  to  tha  probability  mass  accumulated  so  far  for  previously 
/*  tested  outcomes  to  obtain  the  value  of  the  CNF  at  outcome=num_errs*/ 
p.accum  +=  p.exact; 

/* 'nun. errs  *  is  tha  outcome  for  this  trial  if  the  CNF  meets  or  exceeds 
/*  the  uniform  random  value  selected  earlier, 
if  (p.accum  >=  r) 
break; 

> 


/*  If  the  bit  error  rate  vas  inverted  to  compute  correct  bits  instead,  then  */ 
/*  reinvert  the  result  to  obtain  the  number  of  bits  in  error, 
if  (invert.errors  «*  OPC.TRUE) 
num.errs  =  seg_size  -  num_errs; 

} 


148  /*  printf (Hnum_of .errors  *  X5d\n",  num_errs);  •/ 

149  /•  Set  number  of  bit  errors  in  packet  transmission  data  attribute.  */ 

160  op.td_set.int  (pkptr,  OPC.TDA.PT.IUM.ERRORS ,  nun. errs); 

161  FOOT 

162  > 
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APPENDIX  H 

SAMPLE  ENVIRONMENT  FILE  FOR 
PULSED  JAMMER 


•  cdl4_lb0  j  aaO .  ef 

«  sample  •  isolation  configuration  file  for 

•  tvo  interconnected  10  station  network  in  the 

•  ozistanco  of  poised  j saner  interference  (137.088  Mbps  channel  hierarchy  ) 

•  with  circular  allocation  load  balancing  algorithm 

Attributes  related  to  loading  used  by  Mfddi_genN  *** 

t  station  addresses 

e.ring0.f0.mac.station_address:  0 
•.ring0.fi .aac. station. address:  1 
*.ring0.f2.aac.station_address:  2 
*.ring0.f3.aac.station_address:  3 
*.ring0.f4.aac.station_address:  4 
*.ring0.fS.nac.station_address:  5 
*.ring0.f6.aac.station_address:  6 
•.ringO.f 7. aac. station. address:  7 
*.ring0.f8.nac.station_address:  8 
•.ring0.f9.aac.station_address:  0 

*.ringl.f0.aac.station_address:  10 
e.riagl.fl.aac.station_address:  11 
*.ringl.f2.aac.station_address:  12 
*.ringl.f3.aac.stxtion_address:  13 
*.ringl.f4.aac.station_address:  14 
*.ringl.fS.aac.station_address:  15 
e.ringl.f6.aac.station_address:  16 
e.ringl.f7.aac.station_address:  17 
*. ringl. f8. aac. station_address:  18 
• . ringl . f 9 . aac . stat ion.addres  s :  19 


e.ring0.e.aac.ring_ld  :0 
*. ringl.*. aac. ring. id  :1 


•  Specific  stations  aay  be  tailored  by  specifying  the  full  name: 

•  for  example,  top.ringO.f 19.llc.src.async.aix  :  .5 

f  This  means  all  stations  must  be  specified,  or  individuals 
t  aay  be  named  after  the  generic  is  specified, 
i  destination  addresses  for  random  message  generation 
•"top.ringO.fO.llc_src.lov  dost  address" 
•"top.ringO.fO.llc_src.high  dost  address"  : 
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"*.ringO.*.llc_src.low  dest  address":  10 
"e.ringO.e.llc.src.high  dsst  address":  19 
"e.ringl.e.llc.src.low  dest  address":  0 
"*.ringl.*.llc_src.high  dest  address":  19 

#  range  of  priority  values  that  can  be  assigned  to  packets;  FDDI 

#  standards  allow  for  8  priorities  of  asynchronous  traffic.  HIL3's 

i  original  nodal  is  aodified  to  allow  each  station  to  generate  nultiple 

#  priorities,  within  a  specified  range. 

"*.*.llc_src.high  pkt  priority"  :  7 

"e.e.llc.src.low  pkt  priority"  :  0 


#  arrival  rate(fraaes/sec),  and  message  size  (bits)  for  randoa  nessage 
t  generation  at  each  station  on  the  ring. 


"*.*.*. arrival  rate"  :  2S0 

mean  pk  length"  :  20000 
#"ring0.f 9. *. arrival  rate":  0 
*"ring0.f9.*.nean  pk  length":  0 
#"ringl.f 9.*. arrival  rate":  0 
#"ringl.f9.*.nean  pk  length":  0 


•  7APK94  -  S.Karayakaylar 

•  determine  which  load  balancing  algorithm  is  in  use  in  the  CPU 

•  User  should  specify  the  algorithm  before  simulation. 

• 

f  0  (zero)  — — >  circular  load  balancing  algorithm  (default) 

•  1  (one)  - >  empty  allocation  algorithm 

• 

"top.ring0.f9.llc_sink.load  balancing  algorithm":  0 

•  15AP&94  .'determine  the  station  address  of  the  network  interfaces  in 

•  both  rings. 

•  CPU 

"top . ringO . f 9 . llc_sink . stat ion.address" :  9 

•  SPII 

"top.ringl.f9.11c_sink.station_address":  19 

f  12DEC93 :  total  offered  load  is  the  sum  of  all  stations'  loads  (Mbps). 

•  Compute  this  by  hand;  this  value  is  useful  for  generating 

•  scalar  plots  where  offered  load  is  the  abscissa. 


total_offered_load_0  : 

50 

asynch_offered_load_0  : 

45 

total_offered_load_l  : 

50 

asynch.offered.load.l  : 

45 

•  set  the  proportion  of  asynchronous  traffic 

*  a  value  of  1.0  indicates  all  asynchronous  traffic 
"•.e.e.aaync_nix"  0.9 
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•***  Ring  configuration  attributes  used  by  "fddi_«iac"  *** 

*  allocate  percentage  of  synchronous  bandwidth  to  each  station 

•  this  value  should  not  exceed  1  for  all  stations  contained;  OPIET  does  not 

#  enforce  this;  01FEB94:  this  must  be  less  than  1;  see  equation  below 

mac. sync  bandwidth"  :  0.08955676 

•"top.ring0.f9.nac.sync  bandwidth”:  0.0 

#  Target  Token  Rotation  Tine  (one  half  of  naxinun  synchronous  response  tine) 

•  (This  is  coamented  out  for  compatibility  with  the  fddi_script,  which 

i  sets  T_Req  on  the  simulation  command  line;  remove  the  consent  pound-sign 

#  below  to  nake  this  environment  file  self-sufficient.) 

#  SUM(Sli)  +  D_Hax  +  F.Max  ♦  Token.Tine  <=  TTRT 

•  Powers  gives  TTRT  *  10  as  as  necessary  for  voice  transmission;  in  “BOIeS", 

*  D_Nax  ♦  F.Hax  +  Token.Tine  -  1.97888  as. 

"s.s.nac.T.Req"  :  .004 


#  Index  of  the  station  which  initially  launches  the  token 

*  17APR94  :  -Karayakaylar 

•  This  index  should  be  greater  than  the  naxinun  station  nunber 

•  Bridge  stations  spawns  token  for  interconnected  simulation  by  default, 
"spawn  station":  20 


•  Delay  incurred  by  packets  as  they  traverse  a  station's  ring  interface 

•  see  Powers,  p.  351  for  a  discussion  of  this  (Powers  gives  lusec, 

•  but  60.0e-08  agrees  with  Dykeman  ft  Bux) 
station.latency :  60.0e-08 


•  Propagation  Delay  separating  stations  on  the  ring. 

•  If  propagation  delay  is  6.085  nicrosec/kn,  this  corresponds  to 

•  to  a  60  station  ring  with  a  circumference  of  50  kn. 

•  (The  value  given  for  propagation  delay  corresponds  to  Powers,  and  to 

•  Dykeaan  ft  Bux) 
prop.delay:  6.085e-06 

•  CDL  link  related  attributes  -Karayakaylar  7APR94 

•  The  attributes  below  are  specified  with  respect  to  the  janner  type 

•  There  are  two  types  of  j earning  nodels  which  the  CDL  is  exposed  to. 

• 

•  (1)  Pulsed  janner  (janner.type  ■  0) 

•  (2)  C<*nnel-swept  janner  (janner.type  ■  1) 

• 

t  IOTE:For  pulsed  janner  init.jaa.offset  nay  be  zero,  whereas  a  proper 
•  offset  should  be  epecified  for  channel-swept  janner. 
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#  jaaJLength,  Jaa_ber,  interval.bet. jaa_len ,  ber_bet_jan_len  are  a&xiaua 

#  valuta  in  tha  cast  of  pula ad  jaaaer  ainca  they  ara  randonized  is  tha 

#  arror  allocation  pipalina  stage. 

#  For  channel-swept  jaaaer  only  jaa_ber  and  ber.bet_jaa.lea  attributaa  ara 

#  aaxiaiua  valuta  to  ba  randoaizad. 


f  raturn  link  la_0  to  la_3 
•  coHaad  link  la_4 

e.la.O. jaa_length:  0.05 

e.ls.l. jaa_laagth:  0.02 

*.ls_2. jaa_leagth:  0.01 

e.la.3. jaa_length:  0.09 

e.la.4. jaa_length:  0.06 

e.ls.0. jaa_ber:  2a-3 

e.ls.l. jaa_bar:  2a-3 

*.ls_2. jaa_bar:  2a-3 

e.is.3. jaa_ber:  2a-3 

*.ls_4. jaa.ber:  0.0 

e.ls_0.interval_bat_jaa_len:  0.03 

e.ls.l. interval.bet _jaa_len:  0.03 

e.ls_2. interval.bet. jaa_len:  0.03 

e.la.3. interval_bet_jaa_len:  0.03 

*.ls_4. interval.bet. jaa_len:  0.03 

* . ls_0 . bar_bat_ j  aa_lan :  2e-6 

* . la_ 1 . bar_bat_j aa.len :  2a-6 

*.ls_2.ber_bet_jaa_len:  2a-6 

e.ls.3. bar .bet _j  aa_lan :  2a-6 

*.ls_4.ber_bet_jaa_len:  0.0 

e.ls.0.init.jaa_offset:  0.0 

e.ls_l.init_jaa_offset:  0.0 

• . la_2 . init. jaa.of fset :  0.0 

e.ls.3. init_jaa_of feet:  0.0 

*.ls_4. init. jaa_of fset:  0.0 

e.ls.O. jaaaar.typa:  0 

e.ls.l. jaaaar.typa:  0 

*.ls_2. jaaaar.typa:  0 

*.ls_3. jaaaar.typa:  0 

*.la_4. jaaaar.typa:  0 


•  Katnrn  and  coaaand  link  propagation  delays  are  specified  as  60  nsec. 

e.ls.O. delay:  0.06 

e.ls.l. delay:  0.06 

e.la.2. delay:  0.06 

e.ls.3. delay:  0.06 

e.la.4. delay:  0.06 

feet  Simulation  related  attributes 

•  Token  Acceleration  Mechanise  enabling  flag. 

•  It  ia  raccoaended  that  this  aechanisa  ba  enabled  for  aost  situations 

•  16APR94  :  for  bridged  fddi  cdl. interconnect ion  network  this  flag 

•  aust  ba  zero.  Otherwise,  prograa  fault  occurs.  -Karayakaylar 
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accelerate_token:  0 


•  Eon  control  attributes 

seed:  10 

duration:  1 

verbose.sim:  TRUE 

upd_int :  . l 

os .file:  cdl4_lb0jam0 

#  (This  is  consented  out  for  compatibility  with  the  fddi.script,  which 

#  sets  the  output  vector  file  on  the  simulation  command  line;  remove  the 

•  comment  pound-sign  below  to  make  this  environment  file  self-sufficient.) 
ov.file:  cdl4_lb0jaa0 


f  Opnet  Debugger  (odb)  enabling  attribute 
«  debug:  TRUE 
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APPENDIX  I 

SAMPLE  ENVIRONMENT  FILE  EXCERPT 
FOR  CHANNEL-SWEPT  JAMMER 


*  cdl4_lbl jaml .  ef 

#  sample  a isolation  configuration  file  for 

•  two  interconnect ad  10  station  network  in  the 

*  existence  of  channel-swept  jammer  interference  (137.088  Kbps  channel  hierarchy  ) 

#  with  empty  selection  load  balancing  algoritha 


CDL  link  related  attributes  -Karayakaylar  7APR94 

The  attributes  below  are  specified  with  respect  to  the  jammer  type 

There  are  two  types  of  jamming  models  which  the  CDL  is  exposed  to. 

(1)  Pulsed  jammer  (jammer.type  =  0) 

(2)  Channel-swept  jammer  (jammer.type  =  1) 

I0TE:For  pulsed  jammer  init.jam.offset  may  be  zero,  whereas  a  proper 
offset  should  be  specified  for  channel-swept  jammer. 
jam_length,  jam_ber,  interval.bet.jamJLen,  ber_bet_ j am_len  are  maximum 
values  in  the  case  of  pulsed  jammer  since  they  are  randomized  in  the 
error  allocation  pipeline  stage. 

For  channel-swept  jammer  only  jam_ber  and  ber_bet_jam_len  attributes  are 
maximium  values  to  be  randomized. 


return  link  ls_0  to  ls_3 
command  link  ls_4 

.ls_0. jam.length:  0.02 

.ls_l. jam.length:  0.02 

.ls_2. jam_length:  0.02 

.ls_3. jam_length:  0.02 

.ls_4. jam.length:  0.02 

.ls_0. jam. bar:  2e-3 

. ls.l . jam.ber :  2e-3 

.ls_2. jam.ber:  2e-3 

.ls_3. jam.ber:  2e-3 

.ls_4.jam.ber:  0.0 

.Is_0.interval_bet_jam_len:  0.06 

.ls_l.interval_bet_jam_len:  0.06 

.ls_2.interval_bet_jam_len:  0.06 

.ls_3.interval_bet_jam_len:  0.06 

.ls_4.interval_bet_jam_len:  0.06 

.ls_0.ber_bet_jam_len:  2e-6 

,ls_l.ber_bet_jam_len:  2e-6 
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* .  la_2.bsr_bat_jaa_l.su: 

• . ls_3 . bar .bat. jaa_laa: 

* . ls_4 . bar.bat. j aa_laa : 

• . 1«_0 . init_  jaa_of  last : 

• . ls.l . iait. jaa_of f sst : 

• . Is  .2 . iait. jaa_of 1 sat : 

* . ls_3 . init_jaa_oii»«t : 

• . Is .4 . iait. jaa_of last : 

*. Is .0. jaaasr.typs:  1 

s.ls.l. jaaasr.typs:  1 

*.ls_2. jaaasr.typs:  1 

*.ls_3. jaaasr.typs:  1 

*.ls.4. jaaasr.typs:  1 


2s-fl 

2a-6 

0.0 

0.0 

0.02 

0.04 

0.06 

0.0 
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